From 99889b54c8983d2f11aa256d5ba5725e80940462 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 29 May 2008 09:51:37 +0000
Subject: [PATCH] removed extra subex in suffixOptimize

---
 src-3.0/GF/GFCC/OptimizeGFCC.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src-3.0/GF/GFCC/OptimizeGFCC.hs b/src-3.0/GF/GFCC/OptimizeGFCC.hs
index 7fc227c66..94db12a2f 100644
--- a/src-3.0/GF/GFCC/OptimizeGFCC.hs
+++ b/src-3.0/GF/GFCC/OptimizeGFCC.hs
@@ -20,7 +20,7 @@ suffixOptimize gfcc = gfcc {
   concretes = Map.map opt (concretes gfcc)
   }
  where 
-  opt cnc = subex $ cnc {
+  opt cnc = cnc {
     lins = Map.map optTerm (lins cnc),
     lindefs = Map.map optTerm (lindefs cnc),
     printnames = Map.map optTerm (printnames cnc)
@@ -58,7 +58,7 @@ optTerm tr = case tr of
 
 ---subex :: [(CId,Term)] -> [(CId,Term)]
 subex :: Concr -> Concr
-subex cnc = errVal cnc $ do
+subex cnc = err error id $ do
   (tree,_) <- appSTM (getSubtermsMod cnc) (Map.empty,0)
   return $ addSubexpConsts tree cnc