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

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

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