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

One more slight change here.

Browse Source 
svn: r11764
This commit is contained in:
Stevie Strickland 2008-09-15 21:49:13 +00:00
parent e76da360e5
commit 32e0f2d318
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -254,11 +254,6 @@ improve method arity mismatch contract violation error messages?
(quote-syntax contract-id)
(quote-syntax id)
blame-str)) ...)))))]
[(_ #:type type blame (arg ...) body0 body ...)
(identifier? #'blame)
(raise-syntax-error 'with-contract
"expected identifier for type"
#'type)]
[(_ #:type type blame (arg ...) body0 body ...)
(raise-syntax-error 'with-contract
"expected identifier for blame"
@ -278,6 +273,11 @@ improve method arity mismatch contract violation error messages?
(raise-syntax-error 'with-contract
"expected identifier for blame"
#'args)]
[(_ #:type type etc ...)
(not (identifier? #'type))
(raise-syntax-error 'with-contract
"expected identifier for type"
#'type)]
[(_ #:type type blame)
(raise-syntax-error 'with-contract
"only blame"