From c3dcf823cb6b09e8b51b7b44fdeebeb35c55d2e6 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 23 Jan 2013 14:44:39 -0500 Subject: [PATCH] Add tick limit to this test so that it exits cleanly. --- collects/2htdp/tests/universe-restart.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/2htdp/tests/universe-restart.rkt b/collects/2htdp/tests/universe-restart.rkt index 9d741f4f1d..8e772eb1de 100644 --- a/collects/2htdp/tests/universe-restart.rkt +++ b/collects/2htdp/tests/universe-restart.rkt @@ -6,6 +6,7 @@ (define (u) (universe 0 (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)))) (state #t))) @@ -28,6 +29,7 @@ (define (u) (universe '() (on-new (lambda (u w) (make-bundle (cons w u) '() '()))) + (on-tick (lambda (w) w) 1 5) (on-msg (lambda (u w m) ;; set *world* to the first world that comes around, reuse (unless *world* (set! *world* w))