define-intersection-predicate ( class -- )

Vocabulary

classes.intersection.private

Inputs

class

an object

Outputs

None

Definition

USING: classes kernel ;

IN: classes.intersection.private

: define-intersection-predicate ( class -- )
    dup class-participants intersection-predicate-quot
    define-predicate ;