From 26fe66b141eec08bfed62e17c848971e13f80198 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Mon, 17 Nov 2014 18:10:14 -0500
Subject: [PATCH] syntax/parse: fix action patterns in splicing stxclass  
 closes PR 14837

---
 racket/collects/syntax/parse/private/parse.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/racket/collects/syntax/parse/private/parse.rkt b/racket/collects/syntax/parse/private/parse.rkt
index a77e9bbde9..a4fec508c6 100644
--- 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