mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 08:40:21 +02:00
Code Activity

system repl repl comments

Browse source 
* module/system/repl/repl.scm (meta-reader): Add a comment about peek,
  read, and the EOF object.
This commit is contained in:
Andy Wingo 2010-10-05 19:58:13 +02:00
parent fe78af419c
commit 35c46aad66
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/system/repl/repl.scm
View file

@ -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)