         [ 3drop t ] [ 3drop f ]
         [ ">" write ] [ "/>" write ]
         [ length 1 - ] [ length 1 = ] [ length 1 > ]
-        [ drop f f ] [ 2drop f f ]
+        [ 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 > ] [ dup 0 <= ] [ dup 0 < ]
+        [ over 0 > ] [ over 0 <= ] [ over 0 < ]
         [ dup length iota ]
         [ 0 swap copy ]
-        [ dup 1 + ]
+        [ dup 1 + ] [ drop 1 + ]
     }
 
 : lintable-word? ( word -- ? )

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

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

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

: reload-definitions ( -- )
    ! Load lintable and non-ignored definitions
    lintable-words load-definitions

    ! Remove words that are their own definition
    [ [ [ def>> ] [ 1quotation ] bi = not ] filter ] assoc-map
