M: object lint ( obj -- seq ) drop f ;
M: callable lint ( quot -- seq )
- lint-definitions-keys get-global [ subseq-index? ] with filter ;
+ lint-definitions-keys get-global [ subseq-of? ] with filter ;
M: word lint ( word -- seq/f )
def>> [ callable? ] deep-filter [ lint ] map concat ;