print-superclasses ( c -- )

Vocabulary

classes.hierarchy.private

Inputs

c

an object

Outputs

None

Definition

USING: classes io kernel ;

IN: classes.hierarchy.private

: print-superclasses ( c -- )
    superclass-of [
        " < " write
        [ print-class-name ] [ print-superclasses ] bi
    ] when* ;