finnish vowel harmony unlexer ; optimizations and mcfg

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