1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00

Revert "repl.scm next-char needed to read EOF from port"

Actually peek-char => EOF does not guarantee that read-char => EOF. I
don't know what to do about this.

This reverts commit 6e1dccc42f.
This commit is contained in:
Andy Wingo 2010-10-04 22:54:41 +02:00
parent 17285a7c49
commit 78e836efff

View file

@ -173,7 +173,7 @@
(define (next-char wait)
(if (or wait (char-ready?))
(let ((ch (peek-char)))
(cond ((eof-object? ch) (read-char) ch)
(cond ((eof-object? ch) ch)
((char-whitespace? ch) (read-char) (next-char wait))
(else ch)))
#f))