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

[factor.git] / basis / compiler / cfg / linearization / linearization.factor

diff --git a/basis/compiler/cfg/linearization/linearization.factor b/basis/compiler/cfg/linearization/linearization.factor
index 41224cdacd9c4d13388b7072c7514d664511fa3a..998bcdfd09dcea21226e7a3b4cc9ca46b4c464ac 100644 (file)
--- a/basis/compiler/cfg/linearization/linearization.factor
+++ b/basis/compiler/cfg/linearization/linearization.factor
@@ -45,7 +45,7 @@ SYMBOLS: loop-heads visited ;
     dup visited get ?adjoin [ dup , sorted-successors ] [ drop { } ] if
     [ predecessors-ready? ] filter
     [ dup loop-entry? [ find-alternate-loop-head ] when ] map
-    [ visited? not ] filter ;
+    [ visited? ] reject ;
 
 : (linearization-order) ( cfg -- bbs )
     HS{ } clone visited set