syntax/parse: allow action patterns within list patterns

This commit is contained in:
Ryan Culpepper 2010-04-23 16:49:40 -06:00
parent 6272d0511a
commit 227aa7be73

View File

@ -774,6 +774,8 @@
#t] #t]
[(make pat:head _base _head tail) [(make pat:head _base _head tail)
(check-list-pattern tail stx)] (check-list-pattern tail stx)]
[(make pat:ghost _base _ghost tail)
(check-list-pattern tail stx)]
[(make pat:dots _base _head tail) [(make pat:dots _base _head tail)
(check-list-pattern tail stx)] (check-list-pattern tail stx)]
[(make pat:compound _base '#:pair (list _head tail)) [(make pat:compound _base '#:pair (list _head tail))