From df19625c6c996a053e9235e914edceeea43c0154 Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Mon, 22 Oct 2018 14:04:26 -0400 Subject: [PATCH] syntax/parse: fix Check-Syntax arrows within syntax classes --- racket/collects/syntax/parse/private/parse.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/syntax/parse/private/parse.rkt b/racket/collects/syntax/parse/private/parse.rkt index 120a615e69..f66d6f5d69 100644 --- a/racket/collects/syntax/parse/private/parse.rkt +++ b/racket/collects/syntax/parse/private/parse.rkt @@ -104,7 +104,8 @@ (let () (define the-rhs (parameterize ((current-syntax-context #'ctx)) - (fixup-rhs (syntax-local-eval #'the-rhs-expr) + (fixup-rhs (syntax-local-eval + (syntax-local-introduce #'the-rhs-expr)) (syntax-e #'splicing?) (syntax->datum #'relsattrs)))) (rhs->parser #'name #'formals #'relsattrs the-rhs (syntax-e #'splicing?) #'ctx)))]))