From 879ee7751c95f2077b4c62ebd08c313be41b7e27 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 14 Dec 2011 14:00:54 +0000
Subject: misc cleanup

---
 src/interp/g-opt.boot | 2 --
 1 file changed, 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) =>
-- 
cgit v1.2.3