From b7b9e8dde6292386c19d6ecb980cb4de287247c6 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Fri, 12 Mar 2010 01:33:33 +0000
Subject: [PATCH] fixed bug in on-tick syntax pattern

svn: r18513
---
 collects/2htdp/universe.ss | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/2htdp/universe.ss b/collects/2htdp/universe.ss
index 2d41d5960c..b59b195ae5 100644
--- a/collects/2htdp/universe.ss
+++ b/collects/2htdp/universe.ss
@@ -44,11 +44,11 @@
   [on-tick (function-with-arity
             1 
             except
-            [(_ x rate) 
-             #'(list (proc> 'on-tick (f2h x) 1) 
-                     (num> 'on-tick rate (lambda (x)
-                                           (and (real? x) (positive? x)))
-                           "pos. number" "rate"))])]
+            [(_ f rate) 
+             #'(list 
+                (proc> 'on-tick (f2h f) 1)
+                (num> 'on-tick rate (lambda (x) (and (real? x) (positive? x)))
+                      "positive number" "rate"))])]
   ;; -- state specifies whether to display the current state 
   [state (expr-with-check bool> "expected a boolean (show state or not)")]
   ;; -- check-with must specify a predicate