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