From 035689f8c745a23c9a3a073d316adf82e5f7d00b Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 15 May 2007 16:35:13 +0000
Subject: started direct compiler from GF to GFCC

---
 src/GF/Grammar/Compute.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs
index 1fda827eb..24f475f03 100644
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -125,6 +125,8 @@ computeTermOpt rec gr = comp where
 
          _   -> returnC $ P t' l
 
+     PI t l i -> comp g $ P t l -----
+
      S t@(T _ cc) v -> do
        v'     <- comp g v
        case v' of
@@ -258,7 +260,6 @@ computeTermOpt rec gr = comp where
        -- if there are no variables, don't even go inside
        cs' <- if (null g) then return cs else mapPairsM (comp g) cs
        return $ T i cs'
-
      --- this means some extra work; should implement TSh directly
      TSh i cs -> comp g $ T i [(p,v) | (ps,v) <- cs, p <- ps]
 
-- 
cgit v1.2.3