superclass. ( class -- )

Vocabulary

see.private

Inputs

class

an object

Outputs

None

Definition

USING: classes kernel prettyprint.backend prettyprint.sections ;

IN: see.private

: superclass. ( class -- )
    superclass-of dup tuple eq?
    [ drop ] [ "<" text pprint-word ] if ;