diff options
| author | hallgren <hallgren@chalmers.se> | 2013-11-29 16:26:49 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2013-11-29 16:26:49 +0000 |
| commit | 7d1c01138998497e70008b03c3b09b508850cb32 (patch) | |
| tree | 80c64baee886b96346260be15b6f9003dd1c3e36 /src/compiler/GF/Compile/GeneratePMCFG.hs | |
| parent | 729d04051a8f4f92dea0a3d22c64ece2122216bd (diff) | |
Commment code and options relating to the old partial evaluator
This means that the -old-comp and -new-comp flags are not recognized anymore.
The only functional difference is that printnames were still normalized with
the old partial evaluator. Now that is done with the new partial evaluator.
Diffstat (limited to 'src/compiler/GF/Compile/GeneratePMCFG.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GeneratePMCFG.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs index 059038b6c..72e280b07 100644 --- a/src/compiler/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/GF/Compile/GeneratePMCFG.hs @@ -150,9 +150,9 @@ convert opts gr cenv loc term ty@(_,val) pargs = where conv t = convertTerm opts CNil val =<< unfactor t - term' = if flag optNewComp opts - then normalForm cenv loc (expand ty term) -- new evaluator - else term -- old evaluator is invoked from GF.Compile.Optimize + term' = {-if flag optNewComp opts + then-} normalForm cenv loc (expand ty term) -- new evaluator + --else term -- old evaluator is invoked from GF.Compile.Optimize expand ty@(context,val) = recordExpand val . etaExpand ty |