check-inheritance ( subclass superclass -- subclass superclass )


Vocabulary
classes.private

Inputs
subclassan object
superclassan object


Outputs
subclassan object
superclassan object


Definition
USING: classes kernel ;

IN: classes.private

: check-inheritance
( subclass superclass -- subclass superclass )
2dup superclass-of? [ bad-inheritance ] when ;