 : reload-definitions ( -- )
     ! Load lintable and non-ignored definitions
     lintable-words load-definitions
-    [ drop ignore-def? not ] assoc-filter
 
     ! Remove words that are their own definition
     [ [ [ def>> ] [ 1quotation ] bi = not ] filter ] assoc-map

                [ third \ slot = ]
            } 1&&
        ]
    } 1|| ;

: all-callables ( def -- seq )
    [ callable? ] deep-filter ;

: (load-definitions) ( word def hash -- )
    [ all-callables ] dip '[ _ push-at ] with each ;

        [ 3drop t ] [ 3drop f ]
        [ ">" write ] [ "/>" write ]
        [ length 1 - ] [ length 1 = ] [ length 1 > ]
        [ drop f f ] [ drop f t ] [ drop t f ] [ drop t t ]
        [ 2drop f f ] [ 2drop f t ] [ 2drop t f ] [ 2drop t t ]
        [ drop f f f ]
        [ nip f f ]
        [ 0 or + ]
        [ dup 0 > ] [ dup 0 <= ] [ dup 0 < ]
        [ over 0 > ] [ over 0 <= ] [ over 0 < ]
        [ dup length iota ]
        [ 0 swap copy ]
        [ dup 1 + ] [ drop 1 + ]
    }

: lintable-word? ( word -- ? )
