anonymous-complement-or ( first second -- class )

Vocabulary

classes.algebra.private

Inputs

first	an object
second	an object

Outputs

class

an object

Definition

USING: accessors classes.algebra kernel ;

IN: classes.algebra.private

: anonymous-complement-or ( first second -- class )
    2dup class>> swap class<=
    [ 2drop object ] [ classes>anonymous-union ] if ;