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

[factor.git] / core / source-files / source-files-tests.factor

diff --git a/core/source-files/source-files-tests.factor b/core/source-files/source-files-tests.factor
index e5e04c777f5eeb8584f8c055a0bc8c8561963d94..cffecb3ee332ee982703dbe61987b93fafa25559 100644 (file)
--- a/core/source-files/source-files-tests.factor
+++ b/core/source-files/source-files-tests.factor
@@ -2,4 +2,4 @@ IN: source-files.tests
 USING: source-files tools.test assocs sequences strings
 namespaces kernel ;
 
-[ { } ] [ source-files get keys [ string? not ] filter ] unit-test
+[ { } ] [ source-files get keys [ string? ] reject ] unit-test