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

small fix to check-proc

Browse Source 
svn: r12368
This commit is contained in:
Matthias Felleisen 2008-11-09 20:57:34 +00:00
parent 4d38b45205
commit fbd683abb0
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

@ -76,7 +76,7 @@
;; sym (... *->* ...) num (union sym str) (union sym str) -> void ;; sym (... *->* ...) num (union sym str) (union sym str) -> void
(define (check-proc proc f exp-arity arg# arg-err) (define (check-proc proc f exp-arity arg# arg-err)
(unless (procedure? f) (unless (procedure? f)
(tp-error proc "procedure expected as ~s argument; given ~e" arg# f)) (tp-error proc "procedure expected as ~a argument; given ~e" arg# f))
(unless (procedure-arity-includes? f exp-arity) (unless (procedure-arity-includes? f exp-arity)
(let ([arity-of-f (procedure-arity f)]) (let ([arity-of-f (procedure-arity f)])
(tp-error proc "procedure of ~a expected as ~a argument; given procedure of ~a " (tp-error proc "procedure of ~a expected as ~a argument; given procedure of ~a "