diff options
author | Andy Wingo <wingo@pobox.com> | 2010-10-05 19:58:13 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-10-05 19:58:13 +0200 |
commit | 35c46aad664835e07ab0cb4a0d7f93632fb42f14 (patch) | |
tree | f292b2221b85f1b923ef29d5545c3906e95e7bdc /module/system/repl/repl.scm | |
parent | fe78af419c9f4654677878a0904e71f96d5837b0 (diff) | |
download | guile-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.scm | 5 |
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) |