From bd4395bbfad7b853f415b60d34564dc05180f6ac Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Mon, 20 Jul 2009 21:11:19 +0000 Subject: [PATCH] small bug in launch many worlds, propagate svn: r15508 --- collects/2htdp/private/launch-many-worlds.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/2htdp/private/launch-many-worlds.ss b/collects/2htdp/private/launch-many-worlds.ss index 26042cae3b..063151eda9 100644 --- a/collects/2htdp/private/launch-many-worlds.ss +++ b/collects/2htdp/private/launch-many-worlds.ss @@ -19,7 +19,8 @@ [ch (make-channel)] [pu (curry channel-put ch)] [th (map (lambda (th i) - (parameterize ([current-custodian c*]) + (parameterize ([current-custodian c*] + [current-eventspace (make-eventspace)]) (rec t (thread (lambda () @@ -43,6 +44,6 @@ ;; some silly tests -(launch-many-worlds 1 2 3) +; (launch-many-worlds 1 2 3) -(launch-many-worlds 1 (let loop ([n 100]) (printf "~s\n" n) (sleep 1) (loop n)) 3) +; (launch-many-worlds 1 (let loop ([n 100]) (printf "~s\n" n) (sleep 1) (loop n)) 3)