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

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

diff --git a/basis/vocabs/metadata/metadata.factor b/basis/vocabs/metadata/metadata.factor
index 83621349ea957251407eaab42a5958047549f2d4..a89c581ea469f586af71f81c1243ae197ff48a23 100644 (file)
--- a/basis/vocabs/metadata/metadata.factor
+++ b/basis/vocabs/metadata/metadata.factor
@@ -108,13 +108,13 @@ ERROR: bad-platform name ;
     } 1|| ;
 
 : filter-don't-load ( vocabs -- vocabs' )
-    [ vocab-name don't-load? not ] filter ;
+    [ vocab-name don't-load? ] reject ;
 
 : don't-test? ( vocab -- ? )
     vocab-tags "not tested" swap member? ;
 
 : filter-don't-test ( vocabs -- vocabs' )
-    [ don't-test? not ] filter ;
+    [ don't-test? ] reject ;
 
 TUPLE: unsupported-platform vocab requires ;