summaryrefslogtreecommitdiff
path: root/module/system/repl/repl.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-10-05 19:58:13 +0200
committerAndy Wingo <wingo@pobox.com>2010-10-05 19:58:13 +0200
commit35c46aad664835e07ab0cb4a0d7f93632fb42f14 (patch)
treef292b2221b85f1b923ef29d5545c3906e95e7bdc /module/system/repl/repl.scm
parentfe78af419c9f4654677878a0904e71f96d5837b0 (diff)
downloadguile-35c46aad664835e07ab0cb4a0d7f93632fb42f14.tar.gz
system repl repl comments
* module/system/repl/repl.scm (meta-reader): Add a comment about peek, read, and the EOF object.
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)