<anonymous-predicate> ( class predicate -- classoid )


Vocabulary
classes.algebra.private

Inputs
classan object
predicatean object


Outputs
classoidan object


Definition
USING: classes kernel quotations ;

IN: classes.algebra.private

: <anonymous-predicate> ( class predicate -- classoid )
[ classoid check-instance ] [ quotation check-instance ] bi*
anonymous-predicate boa ;