classes>anonymous-union ( first second -- class )

Vocabulary

classes.algebra.private

Inputs

first	an object
second	an object

Outputs

class

an object

Definition

USING: arrays combinators kernel ;

IN: classes.algebra.private

: classes>anonymous-union ( first second -- class )
    [ normalize-class ] bi@ {
        { [ dup anonymous-union? ] [ anonymous-union-or ] }
        {
            [ over anonymous-union? ]
            [ swap anonymous-union-or ]
        }
        [ 2array <anonymous-union> ]
    } cond ;