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

cs: wrap command-line eval in #%top-interaction

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-25 14:39:40 -07:00
parent f8448c4795
commit a4821716d9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -340,7 +340,7 @@
(call-with-values (lambda ()
(call-with-continuation-prompt
(lambda ()
(eval (read (open-input-string expr))))
(eval `(|#%top-interaction| . ,(read (open-input-string expr)))))
(default-continuation-prompt-tag)
(lambda (proc)
;; continue escape to set error status: