check-superclass ( superclass -- )

Vocabulary

classes.tuple.private

Inputs

superclass

an object

Outputs

None

Definition

USING: classes classes.tuple kernel ;

IN: classes.tuple.private

: check-superclass ( superclass -- )
    dup final-class? [ bad-superclass ] when dup class?
    [ bad-superclass ] unless drop ;