From 72c7b14477514f170f2f0d60f04301d5dd74533c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 7 Apr 2007 06:26:43 +0000
Subject: [PATCH] each evaluator gets its own thread group

svn: r5879

original commit: 0a266fabd31ded03c8f007ee4721eff81445fba9
---
 collects/mzlib/sandbox.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss
index 868e9ff..9515b8a 100644
--- 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"))]