print-in ( c -- )

Vocabulary

classes.hierarchy.private

Inputs

c

an object

Outputs

None

Definition

USING: accessors io io.styles kernel sequences vocabs ;

IN: classes.hierarchy.private

: print-in ( c -- )
    vocabulary>> lookup-vocab dup name>> dup ".private" tail?
    [ " P" ] [ "  " ] if write " IN: " write swap write-object ;