From e8c03285407c62648afcf9963c751ab53a53055d Mon Sep 17 00:00:00 2001 From: Alex Shinn 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)