From e8c03285407c62648afcf9963c751ab53a53055d Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 19 May 2012 07:38:54 +0900
Subject: [PATCH] fixing non-string-stream read-line to return eof when no data
 is read

---
 lib/chibi/io/io.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/io/io.scm b/lib/chibi/io/io.scm
index 12f84a7f..6db5aa65 100644
--- a/lib/chibi/io/io.scm
+++ b/lib/chibi/io/io.scm
@@ -54,7 +54,8 @@
         (let ((ch (read-char in)))
           (cond
            ((eof-object? ch)
-            (get-output-string out))
+            (let ((res (get-output-string out)))
+              (and (not (equal? res "")) res)))
            (else
             (write-char ch out)
             (if (eqv? ch #\newline)