print-class-name ( c -- )

Vocabulary

classes.hierarchy.private

Inputs

c

an object

Outputs

None

Definition

USING: accessors io.styles kernel ;

IN: classes.hierarchy.private

: print-class-name ( c -- ) dup name>> swap write-object ;