<anonymous-intersection> ( participants -- classoid )

Vocabulary

classes.algebra.private

Inputs

participants

an object

Outputs

classoid

an object

Definition

USING: classes classes.algebra kernel sequences sets ;

IN: classes.algebra.private

: <anonymous-intersection> ( participants -- classoid )
    [ classoid check-instance ] map members dup length 1 =
    [ first ] [ sort-classes f like anonymous-intersection boa ]
    if ;