syntax/parse: fix action patterns in splicing stxclass

closes PR 14837
2014-11-17 18:10:14 -05:00 · 2014-11-17 18:10:14 -05:00 · 26fe66b141
commit 26fe66b141
parent c4684c12e6
1 changed files with 2 additions and 0 deletions
--- a/racket/collects/syntax/parse/private/parse.rkt
+++ b/racket/collects/syntax/parse/private/parse.rkt
@ -839,6 +839,8 @@ Conventions:
                        #'pattern
                        #'#s(internal-rest-pattern rest-x rest-cx rest-pr))])
          #'(parse:S x cx pattern pr es k))]
+       [#s(hpat:action attrs action subpattern)
+        #'(parse:A x cx action pr es (parse:H x cx rest-x rest-cx rest-pr subpattern pr es k))]
       [#s(hpat:optional (a ...) pattern defaults)
        (with-syntax ([(#s(attr id _ _) ...) #'(a ...)])
          #`(let ([success