class-size ( class -- n ) (original) (raw)
Vocabulary
classes.tuple.private
Inputs
class | an object |
---|
Outputs
n | an object |
---|
Definition
USING: classes sequences words ;
: class-size ( class -- n )
superclasses-of [ "slots" word-prop length ] map-sum ;