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

There's nothing quasi about the body, so just go with regular syntax

Browse Source 
(and change the quote-syntax uses to just #')

svn: r11690
This commit is contained in:
Stevie Strickland 2008-09-12 17:09:42 +00:00
parent e53d5c43ff
commit ac576f5085
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,21 +139,21 @@ improve method arity mismatch contract violation error messages?
stx
(syntax id))]
[(f arg ...)
(quasisyntax/loc stx
(syntax/loc stx
((-contract contract-id
id
pos-blame-id
'neg-blame-id
(quote-syntax f))
#'f)
arg ...))]
[ident
(identifier? (syntax ident))
(quasisyntax/loc stx
(syntax/loc stx
(-contract contract-id
id
pos-blame-id
'neg-blame-id
(quote-syntax ident)))])))))
#'ident))])))))
(define-for-syntax (check-and-split-with-contract-args args)
(let loop ([args args]