use-if-necessary ( word manifest -- )

Vocabulary

ui.tools.listener

Inputs

word	an object
manifest	an object

Outputs

None

Definition

USING: accessors arrays kernel namespaces vocabs.parser ;

IN: ui.tools.listener

: use-if-necessary ( word manifest -- )
    [ [ vocabulary>> ] keep ] dip pick over and [
        manifest [
            [ drop use-vocab ] [ name>> 1array add-words-from ]
            2bi
        ] with-variable
    ] [ 3drop ] if ;