compute-search-vocabs ( manifest -- search-vocab-names search-vocabs )


Vocabulary
vocabs.parser.private

Inputs
manifestan object


Outputs
search-vocab-namesan object
search-vocabsan object


Definition
USING: accessors kernel sequences sets vectors vocabs ;

IN: vocabs.parser.private

: compute-search-vocabs
( manifest -- search-vocab-names search-vocabs )
search-vocab-names>> members dup length <vector> [
[ push ] curry [ when* ] curry
[ lookup-vocab dup ] prepose filter fast-set
] keep ; inline