From 504bdedcc3eb709b3cd57b2fb39c28b64e9ba327 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 12 Nov 2007 21:42:13 +0000 Subject: made Devel versions of Compute, CheckGrammar, Optimize, etc, to leave GF 2.8 untouched when experimenting --- src/GF/Devel/Compile.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/GF/Devel/Compile.hs') diff --git a/src/GF/Devel/Compile.hs b/src/GF/Devel/Compile.hs index f5a16114f..1b6f2710e 100644 --- a/src/GF/Devel/Compile.hs +++ b/src/GF/Devel/Compile.hs @@ -6,9 +6,9 @@ import GF.Compile.Extend import GF.Compile.Rebuild import GF.Compile.Rename import GF.Grammar.Refresh -import GF.Compile.CheckGrammar -import GF.Compile.Optimize -import GF.Compile.Evaluate ---- +import GF.Devel.CheckGrammar +import GF.Devel.Optimize +--import GF.Compile.Evaluate ---- import GF.Devel.OptimizeGF --import GF.Canon.Share --import GF.Canon.Subexpressions (elimSubtermsMod,unSubelimModule) @@ -166,7 +166,7 @@ compileSourceModule opts env@(k,gr) mo@(i,mi) = do (k',mo3r:_) <- putpp " refreshing " $ ioeErr $ refreshModule (k,mos) mo3 intermOut opts (iOpt "show_refresh") (prMod mo3r) - let eenv = emptyEEnv + let eenv = () --- emptyEEnv (mo4,eenv') <- ---- if oElem "check_only" opts putpp " optimizing " $ ioeErr $ optimizeModule opts (mos,eenv) mo3r -- cgit v1.2.3