hierarchy. ( class -- )

Vocabulary

classes.hierarchy

Inputs

class

a class, use tuple to print the whole hierarchy

Outputs

None

Word description

Print the class hierarchy layout on the output stream, with the name of its vocabulary.

Errors

Throws an error if class is not a class.

Examples

tuple hierarchy.

"GADGETS.TXT" utf8 [ gadget hierarchy. ] with-file-writer

Definition

USING: classes classes.hierarchy.private kernel ;

IN: classes.hierarchy

: hierarchy. ( class -- )
    dup class? [ not-a-class-error ] unless
    class-hierarchy swap 0 print-children ;