suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[honu] return eof at the repl if an eof-object is read

Browse Source
This commit is contained in:
Jon Rafkind 2011-09-15 17:21:15 -06:00
parent 5a28514553
commit b4a74fc12d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/honu/core/runtime.rkt
View File

@ -4,6 +4,8 @@
"private/honu-typed-scheme.rkt" "private/honu-typed-scheme.rkt"
racket/port) racket/port)
;; at the repl, honu will only read a single line at a time regardless
;; of how many expressions it contains
(define (read-one-line name input) (define (read-one-line name input)
(define quit? #f) (define quit? #f)
(define one-line (define one-line
@ -18,8 +20,7 @@
(display next) (display next)
(loop)))))) (loop))))))
(if quit? (if quit?
;; this isn't right, somehow communicate to the system that the repl should close eof
#'(exit)
(honu-read-syntax name (open-input-string one-line)))) (honu-read-syntax name (open-input-string one-line))))
(provide configure) (provide configure)