use reject instead of [ ... not ] filter.

[factor.git] / basis / compiler / cfg / linear-scan / live-intervals / live-intervals.factor

diff --git a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
index 8edbbcf8e030336ed7930ed98769777af33c9135..97211a91523f55a2324f7c1d230fda4251c6feec 100644 (file)
--- a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
+++ b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
@@ -214,7 +214,7 @@ ERROR: bad-live-interval live-interval ;
 
 : compute-live-intervals ( cfg -- live-intervals sync-points )
     init-live-intervals
-    linearization-order <reversed> [ kill-block?>> not ] filter
+    linearization-order <reversed> [ kill-block?>> ] reject
     [ compute-live-intervals-step ] each
     live-intervals get finish-live-intervals
     sync-points get ;