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

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

diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor
index 7e8c2e8c94d3f097782dd0b62a941312e43d7237..25115905b455af92f7d1850906a5833ca4dad262 100644 (file)
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -67,7 +67,7 @@ PRIVATE>
     ] check-something ;
 
 : check-about ( vocab -- )
-    vocab-link boa dup
+    <vocab-link> dup
     '[ _ vocab-help [ lookup-article drop ] when* ] check-something ;
 
 : check-vocab ( vocab -- )
@@ -93,12 +93,10 @@ PRIVATE>
 : :lint-failures ( -- ) lint-failures get values errors. ;
 
 : unlinked-words ( vocab -- seq )
-    words all-word-help [ article-parent not ] filter ;
+    words all-word-help [ article-parent ] reject ;
 
 : linked-undocumented-words ( -- seq )
     all-words
-    [ word-help not ] filter
+    [ word-help ] reject
     [ article-parent ] filter
-    [ predicate? not ] filter ;
-
-MAIN: help-lint
+    [ predicate? ] reject ;