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

Just to make sure the srcloc info is correct.

Browse Source 
svn: r11706
This commit is contained in:
Stevie Strickland 2008-09-12 22:59:51 +00:00
parent 7b4cf086e9
commit a343268083
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -237,7 +237,8 @@ improve method arity mismatch contract violation error messages?
"expected identifier for blame" "expected identifier for blame"
#'blame)] #'blame)]
[(_ blame (arg ...) body0 body ...) [(_ 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 ...)) [(_ blame (arg ...))
(identifier? #'blame) (identifier? #'blame)
(raise-syntax-error 'with-contract (raise-syntax-error 'with-contract