From 227aa7be73082eabaa8f6d3a5467d9c42c036809 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 23 Apr 2010 16:49:40 -0600 Subject: [PATCH] syntax/parse: allow action patterns within list patterns --- collects/syntax/private/stxparse/rep.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/syntax/private/stxparse/rep.ss b/collects/syntax/private/stxparse/rep.ss index fcabc96e9e..cc1f1b96f1 100644 --- a/collects/syntax/private/stxparse/rep.ss +++ b/collects/syntax/private/stxparse/rep.ss @@ -774,6 +774,8 @@ #t] [(make pat:head _base _head tail) (check-list-pattern tail stx)] + [(make pat:ghost _base _ghost tail) + (check-list-pattern tail stx)] [(make pat:dots _base _head tail) (check-list-pattern tail stx)] [(make pat:compound _base '#:pair (list _head tail))