[plt-scheme] on-tick in 2htdp/universe.ss

On Sat, Apr 4, 2009 at 3:57 PM, Robby Findler
<robby at eecs.northwestern.edu>wrote:

> I'm not sure, but it looks like that is a buggy error check. You might
> try changing the 1 to a 2 in collects/2htdp/universe.ss and seeing
> what happens. (Search for "(define-keywords AllSpec" and go down two
> lines, I think.)
>
> Robby
>
>
Yup, that was it, but it wasn't the obvious occurrence of 1.  The correct
patch is as follows:

(define-keywords AllSpec
  [on-tick (function-with-arity
            1
            except
            [(x rate)
             #'(list (proc> 'on-tick (f2h x) 2)    ; last arg was 1
                     (num> 'on-tick rate positive? "pos. number"
"rate"))])])

Changing the number on line 3 doesn't do anything, but changing the one in
the line that says proc> does the trick.

Perhaps somebody can install this patch?

--Mitch
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20090405/217e1013/attachment.html>