Vocabulary
classes

Inputs and outputs

class	a class
seq	a sequence of union members, or f

Word description
If class is a union class, outputs a sequence of its member classes, otherwise outputs f.

Definition

USING: kernel words ;

IN: classes

: members ( class -- seq )
dup class? [ "members" word-prop ] [ drop f ] if ;