stop clause for release

svn: r18524
2010-03-12 13:24:45 +00:00 · 2010-03-12 13:24:45 +00:00 · 404e0e30a1
commit 404e0e30a1
parent 97924ffc65
1 changed files with 4 additions and 0 deletions
--- a/collects/2htdp/tests/release.ss
+++ b/collects/2htdp/tests/release.ss
@ -12,6 +12,10 @@
                     500 500)
            (on-tick (lambda (x) (if (string? x) x (add1 x)))
                     r)
+	    (stop-when (lambda (x)
+			 (if (string? x)
+			     (>= (string-length x) 10)
+			     (>= x 5))))
            (on-key  (lambda (n key)
                       (if (string? n)
                           (string-append n key)