GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-10 19:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

a couple of fixes in new Optimize

Browse Source
This commit is contained in:
aarne
2007-12-07 21:00:24 +00:00
parent 1e8f17d12b
commit 49c91adf7a
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Devel/Compile/Compile.hs
View File

@@ -160,10 +160,10 @@ compileSourceModule opts env@(k,gr) mo@(i,mi) = do
moo <- putpp " optimizing " $ ioeErr $ optimizeModule opts gr mox
intermOut opts (iOpt "show_optimize") (prMod moo)
mof <- putpp " factorizing " $ ioeErr $ optimizeModule opts gr moo
intermOut opts (iOpt "show_factorize") (prMod mof)
---- mof <- putpp " factorizing " $ ioeErr $ optimizeModule opts gr moo
---- intermOut opts (iOpt "show_factorize") (prMod mof)
return (k,mof) ----
return (k,moo) ----
{- ----