SYMBOL: +help-lint-failure+
-T{ error-type
+T{ error-type-holder
{ type +help-lint-failure+ }
{ word ":lint-failures" }
{ plural "help lint failures" }
PRIVATE>
-: help-lint-error ( error topic -- )
+: notify-help-lint-error ( error topic -- )
lint-failures get pick
[ [ [ <help-lint-error> ] keep ] dip set-at ] [ delete-at drop ] if
notify-error-observers ;
:: check-something ( topic quot -- )
[ quot call( -- ) f ] [ ] recover
- topic help-lint-error ; inline
+ topic notify-help-lint-error ; inline
: check-word ( word -- )
[ with-file-vocabs ] vocabs-quot set
] check-something ;
: check-about ( vocab -- )
- vocab-link boa dup
- '[ _ vocab-help [ article drop ] when* ] check-something ;
+ <vocab-link> dup
+ '[ _ vocab-help [ lookup-article drop ] when* ] check-something ;
: check-vocab ( vocab -- )
"Checking " write dup write "..." print flush
: :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 ;