nontrivial-anonymous-complement? ( object -- ? )

Vocabulary

classes.algebra.private

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the nontrivial-anonymous-complement class.

Definition

USING: accessors classes kernel ;

IN: classes.algebra.private

: nontrivial-anonymous-complement? ( object -- ? )
    dup anonymous-complement? [
        class>> dup anonymous-union?
        [ drop t ] [
            dup anonymous-intersection?
            [ drop t ] [
                dup class-members
                [ drop t ] [ class-participants ] if
            ] if
        ] if
    ] [ drop f ] if ;