syntax/parse: work around hiding issue in macro stepper

This commit is contained in:
Ryan Culpepper 2010-07-13 15:34:34 -06:00
parent 79a06deb79
commit 87b1ec35f3

View File

@ -273,7 +273,7 @@ Use cases, explained:
[(syntax-parse stx-expr . clauses)
(quasisyntax/loc stx
(let ([x (datum->syntax #f stx-expr)])
(parse:clauses x clauses #,stx)))]))
(parse:clauses x clauses #,((make-syntax-introducer) stx))))]))
(define-syntax (syntax-parser stx)
(syntax-case stx ()
@ -281,7 +281,7 @@ Use cases, explained:
(quasisyntax/loc stx
(lambda (x)
(let ([x (datum->syntax #f x)])
(parse:clauses x clauses #,stx))))]))
(parse:clauses x clauses #,((make-syntax-introducer) stx)))))]))
(define-syntax with-patterns
(syntax-rules ()