Fixing parser deficiencies

1 files changed, 12 insertions, 3 deletions

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