mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

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

Browse source
This commit is contained in:
Marius Vollmer 2001-05-25 13:20:41 +00:00
parent 9f79272ab3
commit 21a10205ed
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/pretty-print.scm
View file

@ -250,7 +250,9 @@
(if width (if width
(out genwrite:newline-str (pp obj 0)) (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)) ; (reverse-string-append l) = (apply string-append (reverse l))