Import Debian changes 2c7-1debian/2c7-1

slib (2c7-1) unstable; urgency=low

  * New upstream.
  * Add slibconfig back in.

slib (2c6-2) unstable; urgency=low

  * Remove the slib$(VERSION).info file.  Cut the diff back down to
    size. 

slib (2c6-1) unstable; urgency=low

  * New upstream.
  * Move docs to /usr/share. Up standards version. add /usr/doc symlink.
    Move info files.  Remove undocumented link.

slib (2c5-6) unstable; urgency=low

  * Lowercase two vars in yasyn.scm (Fixes bug #37222)

slib (2c5-5) unstable; urgency=low

  * Fix it so string-index isn't defined (now there is a
    strsrch:string-index) (Fixes #38812)

slib (2c5-4) unstable; urgency=low

  * Don't run slibconfig in postinst.  (Fixes bug #38253, #37733, #37715,
    #37746,  #37809, #37917, #38123, #38462)

slib (2c5-3) unstable; urgency=low

  * Run slibconfig in postinst.  It was commented out there, but I don't
    see any old bug reports on why it was commented out, so let's try
    again. :)  (Fixes bug #37221)

slib (2c5-2) unstable; urgency=low

  * Link mklibcat.scm to mklibcat.  Fixes a problem with using slib with
    guile. 

slib (2c5-1) unstable; urgency=low

  * New upstream.

slib (2c3-4) unstable; urgency=low

  * New maintainer.

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)