see-class ( class -- )

Vocabulary

see.private

Inputs

class

an object

Outputs

None

Definition

USING: classes kernel prettyprint ;

IN: see.private

: see-class ( class -- )
    dup class?
    [ [ [ seeing-word ] [ see-class* ] bi ] with-use ] [ drop ]
    if ;