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

fix arity error message

Browse Source 
svn: r8714
This commit is contained in:
Eli Barzilay 2008-02-19 07:36:49 +00:00
parent 713b0e4706
commit 3a03f08900
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/private/kw.ss
View File

@ -44,10 +44,10 @@
(loop (cdr req)))))])))]) (loop (cdr req)))))])))])
(string-append (string-append
(cond (cond
[(number? a) (format "expects ~a argument~a" a (if (= a 1) "" "s"))] [(number? a) (format "~a argument~a" a (if (= a 1) "" "s"))]
[(arity-at-least? a) [(arity-at-least? a)
(let ([a (arity-at-least-value a)]) (let ([a (arity-at-least-value a)])
(format "expects at least ~a argument~a" a (if (= a 1) "" "s")))] (format "at least ~a argument~a" a (if (= a 1) "" "s")))]
[else [else
"a different number of arguments"]) "a different number of arguments"])
(if (null? req) (if (null? req)