each evaluator gets its own thread group

svn: r5879 original commit: 0a266fabd31ded03c8f007ee4721eff81445fba9
2007-04-07 06:26:43 +00:00 · 2007-04-07 06:26:43 +00:00 · 72c7b14477
commit 72c7b14477
parent d699ac9dec
1 changed files with 1 additions and 0 deletions
--- a/collects/mzlib/sandbox.ss
+++ b/collects/mzlib/sandbox.ss
@ -457,6 +457,7 @@
            [else (error 'make-evaluator "bad sandox-~a spec: ~e" what out)]))
    (parameterize* ; the order in these matters
        ([current-custodian cust]
+         [current-thread-group (make-thread-group)]
         [current-namespace (make-evaluation-namespace)]
         [current-inspector (make-inspector)]
         [exit-handler (lambda x (error 'exit "user code cannot exit"))]