From f4f925d4d19305edfe612d9385bd0d1d3fe2cfc4 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Thu, 17 Apr 2014 10:50:54 -0400 Subject: [PATCH] fixing how to count --- pkgs/htdp-pkgs/htdp-test/2htdp/tests/record.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/record.rkt b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/record.rkt index 750f673696..0f250af13c 100644 --- 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)