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 72bf5c0bb5adcbf46bf3356e939c868ef2b14324..cf69e4466dcfbe594dc2aab08d50bf2a6a2abda5 100644 (file)
--- a/basis/porter-stemmer/porter-stemmer-tests.factor
+++ b/basis/porter-stemmer/porter-stemmer-tests.factor
@@ -57,8 +57,8 @@ io.files io.encodings.utf8 ;
 [ "mate" ] [ "mate" step5 "" like ] unit-test
 
 [ { } ] [
-    "resource:basis/porter-stemmer/test/voc.txt" utf8 file-lines
+    "vocab:porter-stemmer/test/voc.txt" utf8 file-lines
     [ stem ] map
-    "resource:basis/porter-stemmer/test/output.txt" utf8 file-lines
-    [ 2array ] 2map [ first2 = not ] filter
+    "vocab:porter-stemmer/test/output.txt" utf8 file-lines
+    [ 2array ] 2map [ first2 = ] reject
 ] unit-test