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

improved keyword error messages a little bit

Browse Source 
svn: r8240
This commit is contained in:
Robby Findler 2008-01-07 03:41:47 +00:00
parent e824a51c59
commit a7f300543e
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1281,9 +1281,11 @@ v4 todo:
src-info
blame
orig-str
"expected a ~a that accepts ~a arguments~a, given: ~e"
"expected a ~a that accepts ~a~a argument~a~a, given: ~e"
(if mtd? "method" "procedure")
dom-length
(if (zero? dom-length) "no" dom-length)
(if (null? mandatory-kwds) "" " ordinary")
(if (= 1 dom-length) "" "s")
(keyword-error-text mandatory-kwds)
val)))
@ -1304,10 +1306,10 @@ v4 todo:
(cond
[(null? mandatory-keywords) " without any keywords"]
[(null? (cdr mandatory-keywords))
(format " and the keyword ~a" (car mandatory-keywords))]
(format " and the mandatory keyword ~a" (car mandatory-keywords))]
[else
(format
" and the keywords ~a~a"
" and the mandatory keywords ~a~a"
(car mandatory-keywords)
(apply string-append (map (λ (x) (format " ~a" x)) (cdr mandatory-keywords))))]))
@ -1320,9 +1322,12 @@ v4 todo:
src-info
blame
orig-str
"expected a ~a that accepts ~a arguments and and arbitrarily more~a, given: ~e"
"expected a ~a that accepts ~a argument~a and and arbitrarily more~a, given: ~e"
(if mtd? "method" "procedure")
dom-length
(cond
[(zero? dom-length) "no"]
[else dom-length])
(if (= 1 dom-length) "" "s")
(keyword-error-text mandatory-kwds)
val)))