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

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

Vocabulary
classes

Inputs

members an object

Outputs

members' an object

Definition

USING: kernel sequences sets ;

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