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

[factor.git] / basis / vocabs / hierarchy / hierarchy.factor

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index 7a20bcfa1bb36f413fb21dd16170349f6b16d4bd..07c2097e35b1b868c0ba5f5aac18622be4f0c836 100644 (file)
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -55,7 +55,7 @@ ERROR: vocab-root-required root ;
     [ ensure-vocab-root ] dip\r
     [ ((child-vocabs-recursive)) ] { } make ;\r
 \r
-: no-rooted ( seq -- seq' ) [ find-vocab-root not ] filter ;\r
+: no-rooted ( seq -- seq' ) [ find-vocab-root ] reject ;\r
 \r
 : one-level-only? ( name prefix -- ? )\r
     ?head [ "." split1 nip not ] [ drop f ] if ;\r
@@ -70,7 +70,7 @@ ERROR: vocab-root-required root ;
 \r
 PRIVATE>\r
 \r
-: no-prefixes ( seq -- seq' ) [ vocab-prefix? not ] filter ;\r
+: no-prefixes ( seq -- seq' ) [ vocab-prefix? ] reject ;\r
 \r
 : convert-prefixes ( seq -- seq' )\r
     [ dup vocab-prefix? [ name>> <vocab-link> ] when ] map ;\r
@@ -80,7 +80,7 @@ PRIVATE>
     [ vocab-prefix? ] partition\r
     [\r
         [ vocab-name ] map fast-set\r
-        '[ name>> _ in? not ] filter\r
+        '[ name>> _ in? ] reject\r
         convert-prefixes\r
     ] keep\r
     append ;\r
@@ -136,7 +136,7 @@ PRIVATE>
 \r
 : (load-from-root) ( root prefix -- failures )\r
     vocabs-in-root/prefix\r
-    [ don't-load? not ] filter no-prefixes\r
+    [ don't-load? ] reject no-prefixes\r
     require-all ;\r
 \r
 : load-from-root ( root prefix -- )\r