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

cust -> user-cust

Browse Source 
svn: r12665
This commit is contained in:
Eli Barzilay 2008-12-01 21:22:53 +00:00
parent 18b3cf5bbc
commit 0c2410739a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/sandbox.ss
View File

@ -443,7 +443,7 @@
(define-evaluator-messenger get-namespace 'namespace) (define-evaluator-messenger get-namespace 'namespace)
(define (make-evaluator* init-hook require-perms program-maker) (define (make-evaluator* init-hook require-perms program-maker)
(define cust (make-custodian)) (define user-cust (make-custodian))
(define coverage? (sandbox-coverage-enabled)) (define coverage? (sandbox-coverage-enabled))
(define uncovered #f) (define uncovered #f)
(define input-ch (make-channel)) (define input-ch (make-channel))
@ -458,7 +458,7 @@
(when user-thread (when user-thread
(let ([t user-thread]) (let ([t user-thread])
(set! user-thread #f) (set! user-thread #f)
(custodian-shutdown-all cust) (custodian-shutdown-all user-cust)
(kill-thread t))) ; just in case (kill-thread t))) ; just in case
(void)) (void))
(define (user-break) (define (user-break)
@ -567,7 +567,7 @@
[else (error 'make-evaluator "bad sandox-~a spec: ~e" what out)])) [else (error 'make-evaluator "bad sandox-~a spec: ~e" what out)]))
(parameterize* ; the order in these matters (parameterize* ; the order in these matters
(;; create a sandbox context first (;; create a sandbox context first
[current-custodian cust] [current-custodian user-cust]
[current-thread-group (make-thread-group)] [current-thread-group (make-thread-group)]
[current-namespace (make-evaluation-namespace)] [current-namespace (make-evaluation-namespace)]
;; set up the IO context ;; set up the IO context