GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

removed extra subex in suffixOptimize

Browse Source
This commit is contained in:
aarne
2008-05-29 09:51:37 +00:00
parent a5d05e8344
commit 45e1eedff3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src-3.0/GF/GFCC/OptimizeGFCC.hs
View File

@@ -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