diff options
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 6c68c642..54206ca3 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -333,7 +333,7 @@ cancelScopeLeave! x == walkWith!(x,function f) where optimize! x == x := spliceSeq! packWhen! transformIF! x changeVariableDefinitionToStore(x,nil) - simplifyVMForm spliceSeq! packWhen! inlineLocals! + simplifyVMForm cancelScopeLeave! spliceSeq! packWhen! inlineLocals! groupTranscients! cancelScopeLeave! removeJunk! reduceXLAM! x ++ A non-mutating version of `optimize!'. @@ -573,10 +573,6 @@ EqualBarGensym(x,y) == x isnt [.,:.] or y isnt [.,:.] => false fn(first x,first y) and fn(rest x,rest y) -optSeq x == - x is ['%seq,[op,a]] and op in '(%exit RETURN %leave %return) => a - x - optSuchthat [.,:u] == ["SUCHTHAT",:u] ++ List of VM side effect free operators. @@ -970,7 +966,6 @@ optIquo(x is ['%iquo,a,b]) == --% for x in '((%call optCall) _ - (%seq optSeq)_ (%bind optBind)_ (%try optTry)_ (%not optNot)_ |