check-slot-shadowing ( class superclass slots -- )

Vocabulary

classes.tuple.parser

Inputs

class	an object
superclass	an object
slots	an object

Outputs

None

Definition

USING: accessors kernel make parser.notes sequences ;

IN: classes.tuple.parser

: check-slot-shadowing ( class superclass slots -- )
    shadowed-slots [
        [
            "Definition of slot '" % % "' in class '" % name>> %
            "' shadows a superclass slot" %
        ] "" make note.
    ] with each ;