each-subclass ( ... class quot: ( ... subclass -- ... ) -- ... ) (original) (raw)

each-subclass ( ... class quot: ( ... subclass -- ... ) -- ... )

Vocabulary
classes.tuple.private

Inputs

class	an object
quot	a quotation with stack effect ( ... subclass -- ... )

Outputs
None

Definition

USING: kernel sequences ;

IN: classes.tuple.private

: each-subclass
( ... class quot: ( ... subclass -- ... ) -- ... )
[ subclasses ] dip each ; inline