zealot-help-lint ( exit? -- )

Vocabulary

zealot.help-lint

Inputs

exit?

an object

Outputs

None

Definition

USING: assocs command-line help.lint io kernel namespaces system
vocabs ;

IN: zealot.help-lint

: zealot-help-lint ( exit? -- )
    command-line get require-all
    help-lint-all lint-failures get filter-flaky-resources [
        nip assoc-empty?
        [ "==== FAILING LINT" print :lint-failures flush ]
        unless
    ] [ swap [ 0 1 ? (exit) ] [ drop ] if ] 2bi ;