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

More error reporting.

Browse Source 
svn: r11661
This commit is contained in:
Stevie Strickland 2008-09-11 23:19:34 +00:00
parent f4dd7e85fe
commit cc6d39e217
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/scheme/private/contract.ss
View File

@ -194,7 +194,19 @@ improve method arity mismatch contract violation error messages?
(make-with-contract-transformer
(quote-syntax contract-id)
(quote-syntax id)
(quote-syntax (quote blame)))) ...))))])))
(quote-syntax (quote blame)))) ...))))]
[(_ blame (arg ...) body0 body ...)
(raise-syntax-error 'with-contract
"expected identifier"
#'blame)]
[(_ blame (arg ...))
(raise-syntax-error 'with-contract
"empty body"
stx)]
[(_ blame bad-args body0 body ...)
(raise-syntax-error 'with-contract
"expected list of identifier and/or (identifier contract)"
#'bad-args)])))
;
;