Just to make sure the srcloc info is correct.
svn: r11706
This commit is contained in:
parent
7b4cf086e9
commit
a343268083
|
@ -237,7 +237,8 @@ improve method arity mismatch contract violation error messages?
|
|||
"expected identifier for blame"
|
||||
#'blame)]
|
||||
[(_ blame (arg ...) body0 body ...)
|
||||
#'(with-contract #:type region blame (arg ...) body0 body ...)]
|
||||
(syntax/loc stx
|
||||
(with-contract #:type region blame (arg ...) body0 body ...))]
|
||||
[(_ blame (arg ...))
|
||||
(identifier? #'blame)
|
||||
(raise-syntax-error 'with-contract
|
||||
|
|
Loading…
Reference in New Issue
Block a user