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

stop clause for release

Browse Source 
svn: r18524
This commit is contained in:
Matthias Felleisen 2010-03-12 13:24:45 +00:00
parent 97924ffc65
commit 404e0e30a1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/2htdp/tests/release.ss
View File

@ -12,6 +12,10 @@
500 500) 500 500)
(on-tick (lambda (x) (if (string? x) x (add1 x))) (on-tick (lambda (x) (if (string? x) x (add1 x)))
r) r)
(stop-when (lambda (x)
(if (string? x)
(>= (string-length x) 10)
(>= x 5))))
(on-key (lambda (n key) (on-key (lambda (n key)
(if (string? n) (if (string? n)
(string-append n key) (string-append n key)