     <vocab-link> dup
     '[ _ vocab-help [ lookup-article drop ] when* ] check-something ;
 
-: check-vocab ( vocab -- )
+: help-lint-vocab ( vocab -- )
     "Checking " write dup write "..." print flush
     [ check-about ]
     [ vocab-words [ check-word ] each ]

    [ predicate? ] reject ;

: test-lint-main ( -- )
    command-line get [ load ] each
    help-lint-all
    lint-failures get assoc-empty?
    [ [ "==== FAILING LINT" print :lint-failures flush ] unless ]
    [ 0 1 ? exit ] bi ;

        auto-use? off
        group-articles vocab-articles set
        loaded-child-vocab-names
        [ help-lint-vocab ] each
    ] with-scope ;

: help-lint-all ( -- ) "" help-lint ;
