test-lint-main ( -- )

Vocabulary

help.lint

Inputs

None

Outputs

None

Definition

USING: assocs command-line io kernel namespaces sequences system
vocabs.hierarchy vocabs.loader ;

IN: help.lint

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