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

[factor.git] / basis / porter-stemmer / porter-stemmer-tests.factor

diff --git a/basis/porter-stemmer/porter-stemmer-tests.factor b/basis/porter-stemmer/porter-stemmer-tests.factor
index 4403541608af786b488d99642a5380a7a6951c8e..cf69e4466dcfbe594dc2aab08d50bf2a6a2abda5 100644 (file)
--- a/basis/porter-stemmer/porter-stemmer-tests.factor
+++ b/basis/porter-stemmer/porter-stemmer-tests.factor
@@ -60,5 +60,5 @@ io.files io.encodings.utf8 ;
     "vocab:porter-stemmer/test/voc.txt" utf8 file-lines
     [ stem ] map
     "vocab:porter-stemmer/test/output.txt" utf8 file-lines
-    [ 2array ] 2map [ first2 = not ] filter
+    [ 2array ] 2map [ first2 = ] reject
 ] unit-test