SYMBOL: +help-lint-failure+
-T{ error-type
+T{ error-type-holder
{ type +help-lint-failure+ }
{ word ":lint-failures" }
{ plural "help lint failures" }
] check-something ;
: check-about ( vocab -- )
- vocab-link boa dup
+ <vocab-link> dup
'[ _ vocab-help [ lookup-article drop ] when* ] check-something ;
: check-vocab ( vocab -- )
: :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 ;