From 94e285e6de647ec933f824da6d690b21f6ea1e71 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 5 Jul 2017 09:41:05 -0700 Subject: [PATCH] vocabs.metadata: remove filter-don't-test (inline it instead). --- basis/tools/test/test.factor | 6 ++++-- basis/vocabs/metadata/metadata.factor | 3 --- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor index f333c0e074..ee5ef0de05 100644 --- 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 e1c3adb03d..c7bc010aec 100644 --- 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 -- )