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

fix persistent bug in terminating universe via clock limit

Browse Source
This commit is contained in:
Matthias Felleisen 2013-10-05 12:02:13 -04:00
parent 876995d52c
commit 72a574c108
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkgs/htdp-pkgs/htdp-lib/2htdp/private/universe.rkt
View File

@ -87,14 +87,15 @@
(define ___ (begin 'dummy body ...))
(define n (if (object-name name) (object-name name) name))
(define nxt (name (send universe get) a ...))
(define-values (u mails bad)
(if (stop-the-world? nxt)
(stop! (stop-the-world-world nxt))
(bundle> n nxt)))
(send universe set (format "value returned from ~a" 'name) u)
(unless (boolean? to-string) (send gui add (to-string u)))
(broadcast mails)
(for-each (lambda (iw) (kill iw "disconnected ~a")) bad)))))
(cond
[(stop-the-world? nxt) (stop! (stop-the-world-world nxt))]
[else
(define-values (u mails bad)
(bundle> n nxt))
(send universe set (format "value returned from ~a" 'name) u)
(unless (boolean? to-string) (send gui add (to-string u)))
(broadcast mails)
(for-each (lambda (iw) (kill iw "disconnected ~a")) bad)])))))
;; [Listof Mail] -> Void
;; send payload of messages to designated worlds