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

universe now terminates properly

Browse Source
This commit is contained in:
Matthias Felleisen 2011-11-11 18:12:54 -05:00
parent 8c91d96c50
commit 5a3c78a998
3 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/2htdp/private/universe.rkt
View File

@ -89,7 +89,7 @@
(define nxt (name (send universe get) a ...))
(define-values (u mails bad)
(if (stop-the-world? nxt)
(error 'stop! "the universe stopped: ~e" (stop-the-world-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)))

12
collects/2htdp/tests/on-tick-universe-with-limit.rkt
View File

@ -2,12 +2,8 @@
(require 2htdp/universe 2htdp/image)
(with-handlers ((exn? (lambda (w)
(unless (string=? "stop!: the universe stopped: 3" (exn-message w))
(raise w)))))
(universe 0
(on-tick (lambda (w) (make-bundle (add1 w) '() '())) 1/28 3)
(on-msg void)
(on-new cons))
(error "the universe didn't stop properly"))
(universe 0
(on-tick (lambda (w) (make-bundle (add1 w) '() '())) 1/28 3)
(on-msg void)
(on-new cons))

4
collects/2htdp/tests/struct-universe.rkt
View File

@ -32,7 +32,9 @@
(on-new (lambda (w n) (make-bundle (cons n w) '() '())))
(on-tick
(lambda (w*)
(make-bundle w* (map (lambda (w) (make-mail w 'go)) w*) '())))
(make-bundle w* (map (lambda (w) (make-mail w 'go)) w*) '()))
1
3)
(on-msg
(lambda (state iw msg)
;; display the received prefabbed struct's content