(record-vocab) ( vocab -- )

Vocabulary

prettyprint.sections

Inputs

vocab

an object

Outputs

None

Definition

USING: kernel namespaces sets vocabs ;

IN: prettyprint.sections

: (record-vocab) ( vocab -- )
    dup pprinter-in get dup [ vocab-name ] when =
    [ drop ] [ pprinter-use get adjoin ] if ;