From ee65dad0b3fdd6df55264fe4f680fe9b018b8a37 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 6 May 2012 18:47:41 +0900
Subject: [PATCH] fixing repl output for non-current-output-port out

---
 lib/chibi/repl.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/chibi/repl.scm b/lib/chibi/repl.scm
index 34366c0b..0f31b101 100644
--- a/lib/chibi/repl.scm
+++ b/lib/chibi/repl.scm
@@ -1,5 +1,5 @@
 ;; repl.scm - friendlier repl with line editing and signal handling
-;; Copyright (c) 2011 Alex Shinn.  All rights reserved.
+;; Copyright (c) 2012 Alex Shinn.  All rights reserved.
 ;; BSD-style license: http://synthcode.com/license.txt
 
 ;;> A user-friendly REPL with line editing and signal handling.
@@ -219,8 +219,8 @@
                            (let ((res (eval expr env)))
                              (cond
                               ((not (eq? res (if #f #f)))
-                               (write/ss res)
-                               (newline)))))))))
+                               (write/ss res out)
+                               (newline out)))))))))
                 ;; If an interrupt occurs while the child thread is
                 ;; still running, terminate it, otherwise wait for it
                 ;; to complete.