diff options
Diffstat (limited to 'src')
| -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) => |