shadowed-slots ( superclass slots -- shadowed )


Vocabulary
classes.tuple.parser

Inputs
superclassan object
slotsan object


Outputs
shadowedan object


Definition
USING: accessors classes.tuple kernel sequences sets ;

IN: classes.tuple.parser

: shadowed-slots ( superclass slots -- shadowed )
[ all-slots [ name>> ] map ] [ slot-names ] bi* intersect ;