From 21a10205edfdb05f702dadb9a1d44ce49dbd2bef Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 25 May 2001 13:20:41 +0000 Subject: [PATCH] (generic-write): Return the `unspecified' value. --- ice-9/pretty-print.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ice-9/pretty-print.scm b/ice-9/pretty-print.scm index daa65c5bd..bf4aac2ac 100644 --- a/ice-9/pretty-print.scm +++ b/ice-9/pretty-print.scm @@ -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))