(vocab-search-qualified) ( words name assocs -- words )


Vocabulary
vocabs.parser.private

Inputs
wordsan object
namean object
assocsan object


Outputs
wordsan object


Definition
USING: accessors kernel sequences splitting ;

IN: vocabs.parser.private

: (vocab-search-qualified) ( words name assocs -- words )
[ ":" split1 swap ] dip pick
[ [ name>> = ] with find nip [ (lookup-word) ] with when* ]
[ 3drop ] if ;