From 35c46aad664835e07ab0cb4a0d7f93632fb42f14 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 5 Oct 2010 19:58:13 +0200
Subject: [PATCH] system repl repl comments

* module/system/repl/repl.scm (meta-reader): Add a comment about peek,
  read, and the EOF object.
---
 module/system/repl/repl.scm | 5 +++--
 1 file 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)