all-contained-classes ( members -- members' )

Vocabulary

classes

Inputs

members

an object

Outputs

members'

an object

Definition

USING: kernel sequences sets ;

IN: classes

: all-contained-classes ( members -- members' )
    dup dup [ contained-classes ] map concat sift append
    2dup set= [ drop members ] [ nip all-contained-classes ] if
    ;