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

fix sandbox for running in MrEd

Browse Source 
svn: r7213
This commit is contained in:
Matthew Flatt 2007-08-29 20:34:17 +00:00
parent e6f0f37c85
commit 76cad48393
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/sandbox.ss
View File

@ -368,7 +368,10 @@
(define current-eventspace (mz/mr (make-parameter #f) current-eventspace))
(define make-eventspace (mz/mr void make-eventspace))
(define run-in-bg (mz/mr thread queue-callback))
(define bg-run->thread (mz/mr values eventspace-handler-thread))
(define bg-run->thread (if mred?
(lambda (ignored)
((mz/mr void eventspace-handler-thread) (current-eventspace)))
values))
(define null-input (open-input-bytes #""))
(define (kill-evaluator eval) (eval kill-evaluator))