class-size ( class -- n ) (original) (raw)

class-size ( class -- n )

Vocabulary
classes.tuple.private

Inputs

class	an object

Outputs

n	an object

Definition

USING: classes sequences words ;

IN: classes.tuple.private

: class-size ( class -- n )
superclasses-of [ "slots" word-prop length ] map-sum ;