suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

syntax/parse: fix action patterns in splicing stxclass

Browse Source 
closes PR 14837
This commit is contained in:
Ryan Culpepper 2014-11-17 18:10:14 -05:00
parent c4684c12e6
commit 26fe66b141
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/syntax/parse/private/parse.rkt
View File

@ -839,6 +839,8 @@ Conventions:
#'pattern #'pattern
#'#s(internal-rest-pattern rest-x rest-cx rest-pr))]) #'#s(internal-rest-pattern rest-x rest-cx rest-pr))])
#'(parse:S x cx pattern pr es k))] #'(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) [#s(hpat:optional (a ...) pattern defaults)
(with-syntax ([(#s(attr id _ _) ...) #'(a ...)]) (with-syntax ([(#s(attr id _ _) ...) #'(a ...)])
#`(let ([success #`(let ([success