Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing non-string-stream read-line to return eof when no data is read

Browse source
This commit is contained in:
Alex Shinn 2012-05-19 07:38:54 +09:00
parent 7dd7d076dd
commit e8c0328540
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/io/io.scm
View file

@ -54,7 +54,8 @@
(let ((ch (read-char in))) (let ((ch (read-char in)))
(cond (cond
((eof-object? ch) ((eof-object? ch)
(get-output-string out)) (let ((res (get-output-string out)))
(and (not (equal? res "")) res)))
(else (else
(write-char ch out) (write-char ch out)
(if (eqv? ch #\newline) (if (eqv? ch #\newline)