define-union-predicate ( class -- )

Vocabulary

classes.union.private

Inputs

class

an object

Outputs

None

Definition

USING: classes kernel ;

IN: classes.union.private

: define-union-predicate ( class -- )
    dup class-members union-predicate-quot define-predicate ;