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

[factor.git] / basis / compiler / cfg / ssa / destruction / destruction.factor

diff --git a/basis/compiler/cfg/ssa/destruction/destruction.factor b/basis/compiler/cfg/ssa/destruction/destruction.factor
index b72a273d89353b4de22952f88ec47ab09a7bf6ab..a67f6a5fa75d5a20c0709f42f16083794b641936 100644 (file)
--- a/basis/compiler/cfg/ssa/destruction/destruction.factor
+++ b/basis/compiler/cfg/ssa/destruction/destruction.factor
@@ -115,7 +115,7 @@ M: ##copy cleanup-insn
     dup useful-copy? [ , ] [ drop ] if ;
 
 M: ##parallel-copy cleanup-insn
-    values>> [ leaders ] assoc-map [ first2 = not ] filter
+    values>> [ leaders ] assoc-map [ first2 = ] reject
     parallel-copy-rep % ;
 
 M: ##tagged>integer cleanup-insn