X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Flint%2Flint.factor;h=84491a5ae4d8443fa0f6ed1f9c573a8d489ae658;hp=b874bc8abbc483480c73f6c7c45adee5cb814bc5;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6 diff --git a/extra/lint/lint.factor b/extra/lint/lint.factor index b874bc8abb..84491a5ae4 100644 --- a/extra/lint/lint.factor +++ b/extra/lint/lint.factor @@ -250,7 +250,7 @@ GENERIC: lint ( obj -- seq ) 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 ;