Just to make sure the srcloc info is correct.

svn: r11706
This commit is contained in:
Stevie Strickland 2008-09-12 22:59:51 +00:00
parent 7b4cf086e9
commit a343268083

View File

@ -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