<anonymous-union> ( members -- classoid )

Vocabulary

classes.algebra.private

Inputs

members

an object

Outputs

classoid

an object

Definition

USING: classes classes.algebra kernel sequences sets ;

IN: classes.algebra.private

: <anonymous-union> ( members -- classoid )
    [ classoid check-instance ] map [ null eq? ] reject
    members dup length 1 =
    [ first ] [ sort-classes f like anonymous-union boa ] if ;