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

Add tick limit to this test so that it exits cleanly.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-01-23 14:44:39 -05:00
parent 2a9d42216e
commit c3dcf823cb
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/2htdp/tests/universe-restart.rkt
View File

@ -6,6 +6,7 @@
(define (u) (define (u)
(universe 0 (universe 0
(on-new (lambda (u w) (make-bundle (+ u 1) '() '()))) (on-new (lambda (u w) (make-bundle (+ u 1) '() '())))
(on-tick (lambda (w) (make-bundle w '() '())) 1 5)
(on-msg (lambda (u w m) (make-bundle (- u 1) '() (list w)))) (on-msg (lambda (u w m) (make-bundle (- u 1) '() (list w))))
(state #t))) (state #t)))
@ -28,6 +29,7 @@
(define (u) (define (u)
(universe '() (universe '()
(on-new (lambda (u w) (make-bundle (cons w u) '() '()))) (on-new (lambda (u w) (make-bundle (cons w u) '() '())))
(on-tick (lambda (w) w) 1 5)
(on-msg (lambda (u w m) (on-msg (lambda (u w m)
;; set *world* to the first world that comes around, reuse ;; set *world* to the first world that comes around, reuse
(unless *world* (set! *world* w)) (unless *world* (set! *world* w))