class-or ( first second -- class )
Factor handbook » The language » Objects » Classes » Class operations

Prev:	class-and ( first second -- class )
Next:	classes-intersect? ( first second -- ? )

Vocabulary
classes.algebra

Inputs

first	a class
second	a class

Outputs

class

a class

Word description
Outputs the smallest anonymous class containing both class1 and class2.

Definition

USING: classes.algebra.private classes.private kernel namespaces
words ;

IN: classes.algebra

: class-or ( first second -- class )
    2dup eq? over word? and
    [ drop ]
    [ class-or-cache get [ (class-or) ] symmetric-class-op ] if
    ;