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

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/09 11:14:08

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

Log message:
        (generic-write): Use `object->string' to print
        unknown objects.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/pretty-print.scm.diff?cvsroot=OldCVS&tr1=1.3&tr2=1.4&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.3 
guile/guile-core/ice-9/pretty-print.scm:1.4
--- guile/guile-core/ice-9/pretty-print.scm:1.3 Sun Jun  3 16:29:45 2001
+++ guile/guile-core/ice-9/pretty-print.scm     Sat Jun  9 11:14:08 2001
@@ -124,10 +124,7 @@
                                        ((#\newline) "newline")
                                        (else        (make-string 1 obj)))
                                      (out "#\\" col))))
-          ((input-port? obj)  (out "#[input-port]" col))
-          ((output-port? obj) (out "#[output-port]" col))
-          ((eof-object? obj)  (out "#[eof-object]" col))
-          (else               (out "#[unknown]" col))))
+         (else               (out (object->string obj) col))))
 
   (define (pp obj col)