diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index f5bcab8f..572a0b85 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -53,12 +53,10 @@ compTopLevel(x,m,e) == $compTimeSum: local := 0 $resolveTimeSum: local := 0 $packagesUsed: local := [] - -- The next line allows the new compiler to be tested interactively. - compFun := if $newCompAtTopLevel=true then 'newComp else 'compOrCroak x is ["DEF",:.] or x is ["where",["DEF",:.],:.] => - ([val,mode,.]:= FUNCALL(compFun,x,m,e); [val,mode,e]) + ([val,mode,.]:= compOrCroak(x,m,e); [val,mode,e]) --keep old environment after top level function defs - FUNCALL(compFun,x,m,e) + compOrCroak(x,m,e) compUniquely(x,m,e) == $compUniquelyIfTrue: local:= true @@ -1303,13 +1301,6 @@ compileSpad2Cmd args == translate _ ) - -- next three are for the OLD NEW compiler - -- should be unhooked - - $newcompMode : local := nil - $ncConverse : local := nil - $newComp : local := nil - translateOldToNew := nil $scanIfTrue : local := nil |