diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-12-14 14:00:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-12-14 14:00:54 +0000 |
| commit | 879ee7751c95f2077b4c62ebd08c313be41b7e27 (patch) | |
| tree | 8d9a8011e643658a5f8f22afdfc6faed8a8eecb1 | |
| parent | 2d1de66e2c4cec3486d32094c99bf9ac48ee89c1 (diff) | |
| download | open-axiom-879ee7751c95f2077b4c62ebd08c313be41b7e27.tar.gz | |
misc cleanup
| -rw-r--r-- | src/interp/g-opt.boot | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 54206ca3..62276e2c 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -248,8 +248,6 @@ inlineLocals! x == walkWith!(x,function f) where kept := nil while inits is [u,:inits] repeat [y,z] := u - gensym? y and numOfOccurencesOf(y,x.absBody) = 1 => - x.absBody := substitute!(z,y,x.absBody) usedSymbol?(y,z) or usedSymbol?(y,inits) => kept := [u,:kept] or/[usedSymbol?(v,z) for [v,.] in kept] => kept := [u,:kept] canInlineVarDefinition(y,z,x.absBody) => |