lintable-word? ( word -- ? )


Vocabulary
lint.private

Inputs
wordan object


Outputs
?an object


Definition
USING: accessors combinators.short-circuit kernel sequences
words.alias ;

IN: lint.private

: lintable-word? ( word -- ? )
{
[ vocabulary>> "specialized-" head? ]
[ vocabulary>> "windows-messages" = ]
[ alias? ]
} 1|| not ;