syntax/parse: fix Check-Syntax arrows within syntax classes

2018-10-22 14:04:26 -04:00 · 2018-10-22 14:04:26 -04:00 · df19625c6c
commit df19625c6c
parent 9372ca1e3d
1 changed files with 2 additions and 1 deletions
--- 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)))]))