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

disable sandbox nested-evaluator check

Browse Source 
svn: r13349
This commit is contained in:
Matthew Flatt 2009-02-02 13:10:25 +00:00
parent 8748d7d822
commit dd67fa3cfb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/sandbox.ss
View File

@ -708,7 +708,11 @@
;; try to put the expression in, but if can't then it means that the ;; try to put the expression in, but if can't then it means that the
;; evaluator is calling itself -- there is no simple way to make this ;; evaluator is calling itself -- there is no simple way to make this
;; work, so throw an error ;; work, so throw an error
[(not (sync/timeout 0 (channel-put-evt input-ch expr))) ;; FIXME: the commented-out part creates a race, because the evaluator
;; thread might not be waiting on input-ch, yet; it might be
;; in between sending the previous result and waiting for the
;; next expression
[(not (sync #|/timeout 0|# (channel-put-evt input-ch expr)))
(error 'evaluator "nested evaluator call with: ~e" expr)] (error 'evaluator "nested evaluator call with: ~e" expr)]
[else (let ([r (get-user-result)]) [else (let ([r (get-user-result)])
(cond [(eof-object? r) (terminate+kill! #t #t)] (cond [(eof-object? r) (terminate+kill! #t #t)]