started direct compiler from GF to GFCC

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]