From 22b5b12a2a80835eb5792f3687106084eb95bd0d Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 23 Jun 2005 13:32:43 +0000
Subject: finnish vowel harmony unlexer ; optimizations and mcfg

---
 src/GF/Canon/CMacros.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'src/GF/Canon/CMacros.hs')

diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs
index 77f4b0027..c5268b8cb 100644
--- a/src/GF/Canon/CMacros.hs
+++ b/src/GF/Canon/CMacros.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/06/23 13:23:01 $ 
--- > CVS $Author: peb $
--- > CVS $Revision: 1.26 $
+-- > CVS $Date: 2005/06/23 14:32:43 $ 
+-- > CVS $Author: aarne $
+-- > CVS $Revision: 1.27 $
 --
 -- Macros for building and analysing terms in GFC concrete syntax.
 --
@@ -290,7 +290,8 @@ composOp co trm =
       do
       as' <- mapM co as
       return (FV as')
-  -- peb tried to do this, but then there were errors in GF.Canon.Look.ccompute:
-  -- V x as -> do as' <- mapM co as
-  -- 	       return (V x as')
+  V x as -> 
+      do 
+      as' <- mapM co as
+      return (V x as')
   _ -> return trm -- covers Arg, I, LI, K, E
-- 
cgit v1.2.3