vocabs.metadata: remove filter-don't-test (inline it instead).

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index f333c0e07489a7921ba3e21577739191e8b3f4bd..ee5ef0de0509686b6689fee6427b14a3128eac77 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -188,9 +188,11 @@ M: test-failure error. ( error -- )
 
 : :test-failures ( -- ) test-failures get errors. ;
 
-: test ( prefix -- ) loaded-child-vocab-names test-vocabs ;
+: test ( prefix -- )
+    loaded-child-vocab-names test-vocabs ;
 
-: test-all ( -- ) loaded-vocab-names filter-don't-test test-vocabs ;
+: test-all ( -- )
+    loaded-vocab-names [ don't-test? ] reject test-vocabs ;
 
 : test-main ( -- )
     command-line get [ [ load ] [ test ] bi ] each

diff --git a/basis/vocabs/metadata/metadata.factor b/basis/vocabs/metadata/metadata.factor
index e1c3adb03daf2e81744b8889761a2d44c6bdc774..c7bc010aec4de0bf08ee50c4762dcef58288b87c 100644 (file)
--- a/basis/vocabs/metadata/metadata.factor
+++ b/basis/vocabs/metadata/metadata.factor
@@ -85,9 +85,6 @@ ERROR: bad-platform name ;
 : don't-test? ( vocab -- ? )
     vocab-tags "not tested" swap member? ;
 
-: filter-don't-test ( vocabs -- vocabs' )
-    [ don't-test? ] reject ;
-
 TUPLE: unsupported-platform vocab requires ;
 
 : throw-unsupported-platform ( vocab requires -- )