commit 779c491823a900564c2e876d2800db1949b638da parent dda653e350d2e68e51dd1e31adae7783ee987aae Author: Georges Dupéron <georges.duperon@gmail.com> Date: Thu, 31 May 2018 18:51:37 +0200 Included upstream changes until ba874ebe1422c162ef1d6dc22293c3cf85676c44 (included) Diffstat:
| M | parse/private/rep.rkt-6-90-0-29 | | | 10 | +++------- |
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/parse/private/rep.rkt-6-90-0-29 b/parse/private/rep.rkt-6-90-0-29 @@ -7,6 +7,7 @@ racket/contract/base "make.rkt" syntax/parse/private/minimatch + syntax/apply-transformer syntax/private/id-table syntax/stx syntax/keyword @@ -616,13 +617,8 @@ ;; expand-pattern : pattern-expander Syntax -> Syntax (define (expand-pattern pe stx) - (let* ([proc (pattern-expander-proc pe)] - [introducer (make-syntax-introducer)] - [mstx (introducer (syntax-local-introduce stx))] - [mresult (parameterize ([current-syntax-parse-pattern-introducer introducer]) - (proc mstx))] - [result (syntax-local-introduce (introducer mresult))]) - result)) + (let ([proc (pattern-expander-proc pe)]) + (local-apply-transformer proc stx 'expression))) ;; parse-ellipsis-head-pattern : stx DeclEnv -> (listof EllipsisHeadPattern) (define (parse-ellipsis-head-pattern stx decls)