fixing how to count

2014-04-17 10:50:54 -04:00 · 2014-04-17 10:50:54 -04:00 · f4f925d4d1
commit f4f925d4d1
parent 4872bdfb2f
1 changed files with 2 additions and 2 deletions
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/record.rkt
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/record.rkt
@ -21,8 +21,8 @@
    #:exists 'replace)
  (define final-world 
   (big-bang 0
-             (on-tick add1)
-             (stop-when (curry = n))
+             (on-tick add1 1)
+             (stop-when (lambda (k) (>= k (- n 1))))
             (on-draw draw-number)
             (record? dir)))
  (sleep 1)