check-self-reference ( class members -- class members )

Vocabulary

classes.union.private

Inputs

class	an object
members	an object

Outputs

class	an object
members	an object

Definition

USING: classes kernel sequences ;

IN: classes.union.private

: check-self-reference ( class members -- class members )
    2dup all-contained-classes member-eq?
    [ cannot-reference-self ] when ;