missing output port

This commit is contained in:
Alex Shinn 2011-11-11 09:08:53 +09:00
parent 372a7b37b3
commit 04a330c43b

View file

@ -44,7 +44,7 @@
(cond ((and cell (cdr cell))
(display prefix out)
(display "#" out)
(write (cdr cell))
(write (cdr cell) out)
(display "#" out))
(else
(cond (cell