left-anonymous-union<= ( first second -- ? )

Vocabulary

classes.algebra.private

Inputs

first	an object
second	an object

Outputs

?

an object

Definition

USING: accessors classes.algebra kernel sequences ;

IN: classes.algebra.private

: left-anonymous-union<= ( first second -- ? )
    [ members>> ] dip [ class<= ] curry all? ;