aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-opt.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r--src/interp/g-opt.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index b119ce5f..e6e8b934 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -540,7 +540,7 @@ canInlineVarDefinition(var,expr,body) ==
-- side-effected latter, it is alos a no no.
or/[varIsAssigned(x,body) for x in dependentVars expr] => false
-- Conversatively preserve order of inialization
- body is ['%bind,:.] => false
+ cons? body and body.op in '(%bind LET %loop %collect) => false
-- Linearly used internal temporaries should be replaced, and
-- so should side-effet free initializers for linear variables.
usageCount := numOfOccurencesOf(var,body)