diff options
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 |