diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
commit | bd9733926076885e3417b74de76e4c9c7bc56254 (patch) | |
tree | 2c99dced547d48407ad44cb0e45e31bb4d02ce43 /dbrowse.scm | |
parent | fa3f23105ddcf07c5900de47f19af43d1db1b597 (diff) | |
download | slib-bd9733926076885e3417b74de76e4c9c7bc56254.tar.gz slib-bd9733926076885e3417b74de76e4c9c7bc56254.zip |
Import Upstream version 2c7upstream/2c7
Diffstat (limited to 'dbrowse.scm')
-rw-r--r-- | dbrowse.scm | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/dbrowse.scm b/dbrowse.scm index 8008c04..082cef3 100644 --- a/dbrowse.scm +++ b/dbrowse.scm @@ -1,5 +1,5 @@ ;;; "dbrowse.scm" relational-database-browser -; Copyright 1996, 1997 Aubrey Jaffer +; Copyright 1996, 1997, 1998 Aubrey Jaffer ; ;Permission to copy this software, to redistribute it, and to use it ;for any purpose is granted, subject to the following restrictions and @@ -47,13 +47,9 @@ table-name)))))))) (define (browse:display-dir table-name table) - (printf "%s Tables: -" table-name) + (printf "%s Tables:\\n" table-name) ((table 'for-each-row) - (lambda (row) - (printf " %s -" - (car row))))) + (lambda (row) (printf "\\t%s\\n" (car row))))) (define (browse:display-table table-name table) (let* ((width 18) @@ -65,8 +61,7 @@ (dw-integer (string-append dw "d")) (underline (string-append (make-string (+ -1 width) #\=) " ")) (form "")) - (printf "Table: %s -" table-name) + (printf "Table: %s\\n" table-name) (for-each (lambda (name) (printf dwp-string name)) (table 'column-names)) (newline) @@ -88,8 +83,7 @@ (printf dwp-string type)) (table 'column-types)) (newline) - (set! form (string-append form " -")) + (set! form (string-append form "\\n")) (for-each (lambda (domain) (printf underline)) (table 'column-domains)) (newline) |