summaryrefslogtreecommitdiff
path: root/module/system/repl/repl.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r--module/system/repl/repl.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index efe29acf8..8275f8fba 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -46,8 +46,9 @@
(lambda ()
(let ((ch (next-char #t)))
(cond ((eof-object? ch)
- ;; apparently sometimes even if this is eof, read will
- ;; wait on somethingorother. strange.
+ ;; EOF objects are not buffered. It's quite possible
+ ;; to peek an EOF then read something else. It's
+ ;; strange but it's how it works.
ch)
((eqv? ch #\,)
(read-char port)