* Fixed a bug in expander causing #(x* ...) patterns inside syntax

to not expand properly.
This commit is contained in:
Abdulaziz Ghuloum 2007-11-04 14:01:44 -05:00
parent a12781ef2f
commit b3143eec0d
1 changed files with 1 additions and 1 deletions

View File

@ -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)))