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

Vocabulary

vocabs.parser.private

Inputs

manifest

an object

Outputs

search-vocab-names	an object
search-vocabs	an 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