From 04a330c43b6180443a7c75b231548e28f4e66f34 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 11 Nov 2011 09:08:53 +0900
Subject: [PATCH] missing output port

---
 lib/srfi/38.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index 42f70510..180b4fed 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -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