diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-29 09:51:37 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-29 09:51:37 +0000 |
| commit | 45e1eedff34f11a1e267d1e8923c12a33c7a217a (patch) | |
| tree | 0d875a27798ce909ad16506f0f31c46268d432ca | |
| parent | a5d05e8344eae25a50edb19f1c382f2cb53c5a72 (diff) | |
removed extra subex in suffixOptimize
| -rw-r--r-- | src-3.0/GF/GFCC/OptimizeGFCC.hs | 4 |
1 files 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 |