* Fixed a bug in expander causing #(x* ...) patterns inside syntax
to not expand properly.
This commit is contained in:
parent
a12781ef2f
commit
b3143eec0d
|
@ -2084,7 +2084,7 @@
|
|||
(let-values (((ynew maps)
|
||||
(gen-syntax src y r maps ellipsis? vec?)))
|
||||
(values (gen-cons e x y xnew ynew) maps))))
|
||||
(#(ls ...) (not (stx? e))
|
||||
(#(ls ...)
|
||||
(let-values (((lsnew maps)
|
||||
(gen-syntax src ls r maps ellipsis? #t)))
|
||||
(values (gen-vector e ls lsnew) maps)))
|
||||
|
|
Loading…
Reference in New Issue