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

fix for 10667

Browse Source 
svn: r17445
This commit is contained in:
Matthias Felleisen 2009-12-30 23:42:59 +00:00
parent 5296a0a877
commit 97b41d5985
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/htdp/error.ss
View File

@ -124,7 +124,7 @@
(unless (procedure? f)
(tp-error proc "procedure expected as ~a argument; given ~e" arg# f))
(let ([arity-of-f (procedure-arity f)])
(unless (and (number? arity-of-f) (>= arity-of-f exp-arity))
(unless (procedure-arity-includes? f exp-arity) ; (and (number? arity-of-f) (>= arity-of-f exp-arity))
(tp-error proc "procedure of ~a expected as ~a argument; given procedure of ~a "
arg-err arg#
(cond