(assemble-word-metadata) ( vec word -- vec )

Vocabulary

help.lint.coverage.private

Inputs

vec	an object
word	an object

Outputs

vec

an object

Definition

USING: accessors arrays kernel sequences vocabs ;

IN: help.lint.coverage.private

: (assemble-word-metadata) ( vec word -- vec )
    [
        [ "[" ] dip vocabulary>> dup lookup-vocab 2array
        "] " 3array over push-all
    ] [ [ name>> ] keep 2array ": " 2array over push-all ] bi ;
    inline