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

[factor.git] / basis / compiler / cfg / renaming / functor / functor.factor

diff --git a/basis/compiler/cfg/renaming/functor/functor.factor b/basis/compiler/cfg/renaming/functor/functor.factor
index c3e70af3349965dbc3af7c64c3abf9a95deccf51..2f2d348b725d3f9bb05f76efa7a044e2df4461e9 100644 (file)
--- a/basis/compiler/cfg/renaming/functor/functor.factor
+++ b/basis/compiler/cfg/renaming/functor/functor.factor
@@ -65,19 +65,19 @@ M: ##callback-outputs rename-insn-uses
     drop ;
 
 ! Generate methods for everything else
-insn-classes get special-vreg-insns diff [ insn-def-slots empty? not ] filter [
+insn-classes get special-vreg-insns diff [ insn-def-slots empty? ] reject [
     [ \ rename-insn-defs create-method-in ]
     [ insn-def-slots [ name>> ] map DEF-QUOT slot-change-quot ] bi
     define
 ] each
 
-insn-classes get special-vreg-insns diff [ insn-use-slots empty? not ] filter [
+insn-classes get special-vreg-insns diff [ insn-use-slots empty? ] reject [
     [ \ rename-insn-uses create-method-in ]
     [ insn-use-slots [ name>> ] map USE-QUOT slot-change-quot ] bi
     define
 ] each
 
-insn-classes get [ insn-temp-slots empty? not ] filter [
+insn-classes get [ insn-temp-slots empty? ] reject [
     [ \ rename-insn-temps create-method-in ]
     [ insn-temp-slots [ name>> ] map TEMP-QUOT slot-change-quot ] bi
     define