From ea3291cbe5192fa20f1a5d4dc45d776e48c21b7d Mon Sep 17 00:00:00 2001
From: John Hodge <tpg@mutabah.net>
Date: Sun, 21 Feb 2016 21:19:31 +1100
Subject: Fixing parser deficiencies

---
 src/ast/pattern.cpp | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

(limited to 'src/ast/pattern.cpp')

diff --git a/src/ast/pattern.cpp b/src/ast/pattern.cpp
index f2279a55..7ebdb35d 100644
--- a/src/ast/pattern.cpp
+++ b/src/ast/pattern.cpp
@@ -15,12 +15,15 @@ namespace AST {
 {
     os << "Pattern(" << pat.m_binding << " @ ";
     TU_MATCH(Pattern::Data, (pat.m_data), (ent),
-    (Any,
-        os << "_";
-        ),
     (MaybeBind,
         os << "?";
         ),
+    (Macro,
+        os << *ent.inv;
+        ),
+    (Any,
+        os << "_";
+        ),
     (Box,
         os << "box " << *ent.sub;
         ),
@@ -62,6 +65,9 @@ SERIALISE_TYPE(Pattern::, "Pattern", {
         ),
     (MaybeBind,
         ),
+    (Macro,
+        s.item( e.inv );
+        ),
     (Box,
         s << e.sub;
         ),
@@ -94,6 +100,9 @@ SERIALISE_TYPE(Pattern::, "Pattern", {
     _D(Any, )
     _D(MaybeBind,
         )
+    _D(Macro,
+        s.item( ent.inv );
+        )
     _D(Box,
         s.item( ent.sub );
         )
-- 
cgit v1.2.3