[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 pretty-print.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/ice-9 pretty-print.scm |
Date: |
Sat, 09 Jun 2001 11:14:08 -0700 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/ice-9 pretty-print.scm,
Marius Vollmer <=