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

Add to the error message for -> in the case of optional arguments.

Browse Source 
svn: r13803
This commit is contained in:
Stevie Strickland 2009-02-23 18:49:29 +00:00
parent 93d6a5fc7c
commit 3c0e17d963
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scheme/private/contract-arrow.ss
View File

@ -1427,11 +1427,14 @@ v4 todo:
src-info
blame
orig-str
"expected a ~a that accepts ~a~a argument~a~a, given: ~e"
"expected a ~a that accepts ~a~a~a argument~a~a~a, given: ~e"
(if mtd? "method" "procedure")
(if (zero? dom-length) "no" dom-length)
(if (null? optionals) "" " mandatory")
(if (null? mandatory-kwds) "" " ordinary")
(if (= 1 dom-length) "" "s")
(if (zero? optionals) ""
(format " and up to ~a optional argument~a" optionals (if (= 1 optionals) "" "s")))
(keyword-error-text mandatory-kwds optional-keywords)
val)))