                 [ third \ slot = ]
             } 1&&
         ]
-
-        ! Remove [ ... \ cdecl ]
-        [
-            { [ length 3 = ] [ last \ cdecl = ] } 1&&
-        ]
     } 1|| ;
 
 : all-callables ( def -- seq )

    [ lint-definitions-keys get-global ] dip '[ _ subseq? ] filter ;

M: word lint ( word -- seq/f )
    def>> all-callables [ lint ] map concat ;

: word-path. ( word -- )
    [ vocabulary>> write ":" write ] [ . ] bi ;

        ! Remove words with locals
        [ [ \ load-locals = ] any? ]

        ! Remove stuff with wrappers
        [ [ wrapper? ] any? ]

        ! Remove numbers/t/f only defs
        [
            [ { [ number? ] [ t? ] [ f eq? ] } 1|| ] all?
