From 1ea059cdcbce96d4198c42eee16be151549606cc Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Sun, 2 Oct 2005 19:50:19 +0000
Subject: def and List

---
 src/GF/Grammar/Macros.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/GF/Grammar/Macros.hs')

diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs
index 746526c85..6f0ee3335 100644
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/06/03 21:51:58 $ 
+-- > CVS $Date: 2005/10/02 20:50:19 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.22 $
+-- > CVS $Revision: 1.23 $
 --
 -- Macros for constructing and analysing source code terms.
 --
@@ -655,6 +655,10 @@ composOp co trm =
         i'  <- changeTableType co i
         return (TSh i' cc')
 
+   Eqs cc -> 
+     do cc' <- mapPairListM (co . snd) cc
+        return (Eqs cc')
+
    V ty vs ->
      do ty' <- co ty
         vs' <- mapM co vs
-- 
cgit v1.2.3