From 0c2410739afcfb56750b8333b3b25c0edb5ec377 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 1 Dec 2008 21:22:53 +0000 Subject: [PATCH] cust -> user-cust svn: r12665 --- collects/scheme/sandbox.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss index c1199582be..bf4790e885 100644 --- a/collects/scheme/sandbox.ss +++ b/collects/scheme/sandbox.ss @@ -443,7 +443,7 @@ (define-evaluator-messenger get-namespace 'namespace) (define (make-evaluator* init-hook require-perms program-maker) - (define cust (make-custodian)) + (define user-cust (make-custodian)) (define coverage? (sandbox-coverage-enabled)) (define uncovered #f) (define input-ch (make-channel)) @@ -458,7 +458,7 @@ (when user-thread (let ([t user-thread]) (set! user-thread #f) - (custodian-shutdown-all cust) + (custodian-shutdown-all user-cust) (kill-thread t))) ; just in case (void)) (define (user-break) @@ -567,7 +567,7 @@ [else (error 'make-evaluator "bad sandox-~a spec: ~e" what out)])) (parameterize* ; the order in these matters (;; create a sandbox context first - [current-custodian cust] + [current-custodian user-cust] [current-thread-group (make-thread-group)] [current-namespace (make-evaluation-namespace)] ;; set up the IO context