mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-08 02:40:17 +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 () (lambda ()
(let ((ch (next-char #t))) (let ((ch (next-char #t)))
(cond ((eof-object? ch) (cond ((eof-object? ch)
;; apparently sometimes even if this is eof, read will ;; EOF objects are not buffered. It's quite possible
;; wait on somethingorother. strange. ;; to peek an EOF then read something else. It's
;; strange but it's how it works.
ch) ch)
((eqv? ch #\,) ((eqv? ch #\,)
(read-char port) (read-char port)