compiler.tree.escape-analysis.branches: no need for sift.

diff --git a/basis/compiler/tree/escape-analysis/branches/branches.factor b/basis/compiler/tree/escape-analysis/branches/branches.factor
index d3511bd8a2cda1d9de24f0d8d58c1971c428307a..62c81212b723fe4759500181bf59c22c96c21368 100644 (file)
--- a/basis/compiler/tree/escape-analysis/branches/branches.factor
+++ b/basis/compiler/tree/escape-analysis/branches/branches.factor
@@ -9,7 +9,7 @@ IN: compiler.tree.escape-analysis.branches
 
 M: #branch escape-analysis*
     [ in-d>> add-escaping-values ]
-    [ live-children sift [ (escape-analysis) ] each ]
+    [ live-children [ [ (escape-analysis) ] when* ] each ]
     bi ;
 
 : (merge-allocations) ( values -- allocation )