From 7508fa578551672711fcec8c4b37d79c3a3de5ef Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 18 May 2009 15:01:18 +0000
Subject: pattern macros: oper f : pattern T = # p ; used as #f in patterns

---
 src/GF/Grammar/Parser.y | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Grammar/Parser.y')

diff --git a/src/GF/Grammar/Parser.y b/src/GF/Grammar/Parser.y
index 136480799..fbdb541b4 100644
--- a/src/GF/Grammar/Parser.y
+++ b/src/GF/Grammar/Parser.y
@@ -736,6 +736,8 @@ mkAlts cs = case cs of
        return $ Strs $ as ++ bs
      PString s -> return $ Strs [K s]
      PV x -> return (Vr x) --- for macros; not yet complete
+     PMacro x -> return (Vr x) --- for macros; not yet complete
+     PM m c -> return (Q m c) --- for macros; not yet complete
      _ -> fail "no strs from pattern"
 
 }
-- 
cgit v1.2.3