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

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

diff --git a/basis/compiler/cfg/linear-scan/assignment/assignment.factor b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
index 811e91b9cdc3a7b191bb3ef2bb665d0c6e4b88a9..f35e0a5c99924723b52b8285f747e721f4cbac93 100644 (file)
--- a/basis/compiler/cfg/linear-scan/assignment/assignment.factor
+++ b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
@@ -147,5 +147,5 @@ M: insn assign-registers-in-insn drop ;
 
 : assign-registers ( cfg live-intervals -- )
     init-assignment
-    linearization-order [ kill-block?>> not ] filter
+    linearization-order [ kill-block?>> ] reject
     [ assign-registers-in-block ] each ;