From 87b1ec35f38f63de5cb229f8d664d7b898c650ae Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 13 Jul 2010 15:34:34 -0600 Subject: [PATCH] syntax/parse: work around hiding issue in macro stepper --- collects/syntax/private/stxparse/sc.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/syntax/private/stxparse/sc.rkt b/collects/syntax/private/stxparse/sc.rkt index 91429714dd..636f7fcb7f 100644 --- a/collects/syntax/private/stxparse/sc.rkt +++ b/collects/syntax/private/stxparse/sc.rkt @@ -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 ()