system repl repl comments

* module/system/repl/repl.scm (meta-reader): Add a comment about peek,
  read, and the EOF object.

diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index efe29ac..8275f8f 100644 (file)
--- 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)