 : zealot-help-lint-main ( -- )
     t zealot-help-lint ;
 
-MAIN: zealot-help-lint-main+MAIN: zealot-help-lint-main

! Copyright (C) 2019 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs cache command-line help.lint io io.monitors kernel
namespaces prettyprint sequences system vocabs.hierarchy ;
IN: zealot.help-lint

! FIXME: help-lint sometimes lists monitors and event-streams as leaked.


! Allow testing without calling exit
: 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 ]
