From fb730a75b5366a0ae6debc5393e5b78d347e0216 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 9 Jun 2007 14:08:23 +0000
Subject: [PATCH] bug fix in Compute

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

diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs
index 1b4693932..2f55babd4 100644
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -134,7 +134,7 @@ computeTermOpt rec gr = comp where
            ts' <- mapM (comp g . S t) vs
            return $ variants ts' 
          _ -> case ti of
-
+{-
            TComp _  -> do
              case term2patt v' of
                Ok p' -> case lookup p' cc of
@@ -145,7 +145,7 @@ computeTermOpt rec gr = comp where
                _ -> do
                   t' <- comp g t
                   return $ S t' v'
-
+-}
            _ -> case matchPattern cc v' of
              Ok (c,g') -> comp (g' ++ g) c
              _ | isCan v' -> prtBad ("missing case" +++ prt v' +++ "in") t 
@@ -158,7 +158,7 @@ computeTermOpt rec gr = comp where
 
       t'     <- case t of
 --        T _ _ -> return t
-        V _ _ -> return t
+--        V _ _ -> return t
         _ -> comp g t
 
       v'     <- comp g v