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.
This commit is contained in:
hallgren
2013-11-29 16:26:49 +00:00
parent 729d04051a
commit 7d1c011389
8 changed files with 54 additions and 55 deletions

View File

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