?qualified-name ( word -- name )

Vocabulary

prettyprint.backend

Inputs

word

an object

Outputs

name

an object

Definition

USING: accessors kernel namespaces prettyprint.config sequences
;

IN: prettyprint.backend

: ?qualified-name ( word -- name )
    [ name>> ] keep qualified-names? get
    [ vocabulary>> [ ":" rot 3append ] when* ] [ drop ] if ;