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

cs: print results of -e command-line expressions

Browse Source 
Also, wrap an individual prompt around each evaluation.
This commit is contained in:
Matthew Flatt 2019-01-19 08:16:32 -07:00
parent 2fe2b7a8a7
commit 21712fecc9
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -327,7 +327,19 @@
(set! loads (set! loads
(cons (cons
(lambda () (lambda ()
(eval (read (open-input-string expr)))) (call-with-values (lambda ()
(call-with-continuation-prompt
(lambda ()
(eval (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| (|#%app| current-print) v)
(flush-output))
vals))))
loads)) loads))
(flags-loop rest-args (see saw 'non-config)))] (flags-loop rest-args (see saw 'non-config)))]
[("-k") [("-k")