From 404e0e30a11c98f8a705ed8ce297b67d55fd47fe Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Fri, 12 Mar 2010 13:24:45 +0000
Subject: [PATCH] stop clause for release

svn: r18524
---
 collects/2htdp/tests/release.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/2htdp/tests/release.ss b/collects/2htdp/tests/release.ss
index 752a36e9be..6ba26a4476 100644
--- 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)