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

* module/system/repl/repl.scm (next-char): Actually read off the EOF if
  we got one. Interesting, this.

diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index efe29ac..e416d1d 100644 (file)
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -173,7 +173,7 @@
 (define (next-char wait)
   (if (or wait (char-ready?))
       (let ((ch (peek-char)))
-       (cond ((eof-object? ch) ch)
+       (cond ((eof-object? ch) (read-char) ch)
              ((char-whitespace? ch) (read-char) (next-char wait))
              (else ch)))
       #f))