     [ predicate? ] reject ;
 
 : test-lint-main ( -- )
-    command-line get [ load ] each
-    help-lint-all
+    command-line get dup first "--only" = [
+        rest [ [ require ] [ help-lint-vocab ] bi ] each
+    ] [
+        [ [ load ] [ help-lint ] bi ] each
+    ] if
     lint-failures get assoc-empty?
     [ [ "==== FAILING LINT" print :lint-failures flush ] unless ]
     [ 0 1 ? exit ] bi ;

    <vocab-link> dup
    '[ _ vocab-help [ lookup-article drop ] when* ] check-something ;

: check-vocab ( vocab -- )
    "Checking " write dup write "..." print flush
    [ check-about ]
    [ vocab-words [ check-word ] each ]

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

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