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:
parent
17285a7c49
commit
78e836efff
1 changed files with 1 additions and 1 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue