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

small bug in launch many worlds, propagate

Browse Source 
svn: r15508
This commit is contained in:
Matthias Felleisen 2009-07-20 21:11:19 +00:00
parent b2c287aee4
commit bd4395bbfa
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/2htdp/private/launch-many-worlds.ss
View File

@ -19,7 +19,8 @@
[ch (make-channel)] [ch (make-channel)]
[pu (curry channel-put ch)] [pu (curry channel-put ch)]
[th (map (lambda (th i) [th (map (lambda (th i)
(parameterize ([current-custodian c*]) (parameterize ([current-custodian c*]
[current-eventspace (make-eventspace)])
(rec t (rec t
(thread (thread
(lambda () (lambda ()
@ -43,6 +44,6 @@
;; some silly tests ;; 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)