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 3bf84c6703908b7a77723ae2b8c5fea6e9b8623d..25115905b455af92f7d1850906a5833ca4dad262 100644 (file)
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -53,7 +53,6 @@ PRIVATE>
                 [ check-values ]
                 [ check-value-effects ]
                 [ check-class-description ]
-                [ check-class-slots ]
                 [ nip [ check-nulls ] [ check-see-also ] [ check-markup ] tri ]
             } 2cleave
         ] check-something
@@ -68,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 -- )
@@ -94,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 ;