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

cs: eval multiple expressions provided with -e

Browse Source
This commit is contained in:
Matthew Flatt 2019-12-17 07:30:47 -07:00
parent 899aa24756
commit d7f2bd3e15
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/src/cs/main.sps
View File

@ -371,10 +371,14 @@
(set! loads (set! loads
(cons (cons
(lambda () (lambda ()
(define i (open-input-string expr))
(let loop ()
(define expr (read i))
(unless (eof-object? expr)
(call-with-values (lambda () (call-with-values (lambda ()
(call-with-continuation-prompt (call-with-continuation-prompt
(lambda () (lambda ()
(eval `(|#%top-interaction| . ,(read (open-input-string expr))))) (eval `(|#%top-interaction| . ,expr)))
(default-continuation-prompt-tag) (default-continuation-prompt-tag)
(lambda (proc) (lambda (proc)
;; continue escape to set error status: ;; continue escape to set error status:
@ -383,7 +387,8 @@
(for-each (lambda (v) (for-each (lambda (v)
(|#%app| (current-print) v) (|#%app| (current-print) v)
(flush-output)) (flush-output))
vals)))) vals)))
(loop))))
loads)) loads))
(flags-loop rest-args (see saw 'non-config)))] (flags-loop rest-args (see saw 'non-config)))]
[("-k") [("-k")