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

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

diff --git a/basis/compiler/cfg/hats/hats.factor b/basis/compiler/cfg/hats/hats.factor
index 63786b6d87f7ef7202dab59b7dab34c548f345e7..fefb4faeea7c18d43025f82a998f65aa87491f47 100644 (file)
--- a/basis/compiler/cfg/hats/hats.factor
+++ b/basis/compiler/cfg/hats/hats.factor
@@ -26,7 +26,7 @@ IN: compiler.cfg.hats
 
 : hat-effect ( insn -- effect )
     "insn-slots" word-prop
-    [ type>> { def temp } member-eq? not ] filter [ name>> ] map
+    [ type>> { def temp } member-eq? ] reject [ name>> ] map
     { "vreg" } <effect> ;
 
 : define-hat ( insn -- )