vocab-search ( name manifest -- word/f )

Vocabulary

vocabs.parser.private

Inputs

name	an object
manifest	an object

Outputs

word/f

an object

Definition

USING: accessors arrays combinators continuations kernel
sequences vocabs.parser ;

IN: vocabs.parser.private

: vocab-search ( name manifest -- word/f )
    dupd search-vocabs>> (vocab-search-full) dup length {
        { 0 [ 2drop f ] }
        { 1 [ first nip ] }
        [
            drop <ambiguous-use-error> throw-restarts dup
            [ vocabulary>> ] [ name>> 1array ] bi add-words-from
        ]
    } case ;