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)) (cond ((and cell (cdr cell))
(display prefix out) (display prefix out)
(display "#" out) (display "#" out)
(write (cdr cell)) (write (cdr cell) out)
(display "#" out)) (display "#" out))
(else (else
(cond (cell (cond (cell