From bd9733926076885e3417b74de76e4c9c7bc56254 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:28 -0800 Subject: Import Upstream version 2c7 --- dbrowse.scm | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) (limited to 'dbrowse.scm') 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) -- cgit v1.2.3