print-class ( c i -- )

Vocabulary

classes.hierarchy.private

Inputs

c	an object
i	an object

Outputs

None

Definition

USING: accessors io kernel math sequences strings ;

IN: classes.hierarchy.private

: print-class ( c i -- )
    2dup print-leader print-class-name 2 * over name>> length +
    dup in-col < [ in-col swap - 32 <string> write ] [ drop ] if
    print-in nl ;