tools.test: make sure to skip don't-test? vocabs.

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index e8c0707e7fc54bc2117fc2ce260aaa10b1655c35..2654cceb5f2240a85675e536f98e9bcc14513178 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -231,7 +231,7 @@ M: test-failure error. ( error -- )
         V{ } clone swap rest [
             dup vocab-roots get member?
             [ "" vocabs-to-load append! ] [ suffix! ] if
-        ] each [ require-all ] [ test-vocabs ] bi
+        ] each [ don't-test? ] reject [ require-all ] [ test-vocabs ] bi
     ] [
         [ [ load ] [ test ] bi ] each
     ] if