interesting-classes ( class classes -- interesting/f )

Vocabulary

generic.private

Inputs

class	an object
classes	an object

Outputs

interesting/f

an object

Definition

USING: kernel make sequences ;

IN: generic.private

: interesting-classes ( class classes -- interesting/f )
    [ [ interesting-class? ] with all? ] { } make and ;