guile/guile-core/ice-9 pretty-print.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/25 06:20:41

Modified files:
        guile-core/ice-9: pretty-print.scm 

Log message:
        (generic-write): Return the `unspecified' value.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/pretty-print.scm.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/pretty-print.scm
diff -u guile/guile-core/ice-9/pretty-print.scm:1.1 
guile/guile-core/ice-9/pretty-print.scm:1.2
--- guile/guile-core/ice-9/pretty-print.scm:1.1 Thu May 24 17:15:32 2001
+++ guile/guile-core/ice-9/pretty-print.scm     Fri May 25 06:20:41 2001
@@ -250,7 +250,9 @@
 
   (if width
     (out genwrite:newline-str (pp obj 0))
-    (wr obj 0)))
+    (wr obj 0))
+  ;; Return `unspecified'
+  (if #f #f))
 
 ; (reverse-string-append l) = (apply string-append (reverse l))