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

[factor.git] / basis / help / search / search.factor

diff --git a/basis/help/search/search.factor b/basis/help/search/search.factor
index 0a127b177ecd7a1f4542e7d96ea7a1f8c04b1aab..9d6ff601070ad9a9b7482f885db67f1554152595 100644 (file)
--- a/basis/help/search/search.factor
+++ b/basis/help/search/search.factor
@@ -31,7 +31,7 @@ IN: help.search
 
 MEMO: article-words ( name -- words )
     article-content [ element-value ] map " " join search-words
-    [ [ digit? ] all? not ] filter
+    [ [ digit? ] all? ] reject
     [ [ { [ letter? ] [ digit? ] } 1|| not ] trim ] map! harvest  ;
 
 : (search-articles) ( string -- seq' )