find-word ( name -- word/f )

Vocabulary

help.lint.coverage.private

Inputs

name

an object

Outputs

word/f

an object

Definition

USING: combinators continuations kernel sequences vocabs
vocabs.parser ;

IN: help.lint.coverage.private

: find-word ( name -- word/f )
    dup words-named dup length {
        { 0 [ 2drop f ] }
        { 1 [ first nip ] }
        [ drop <ambiguous-use-error> throw-restarts ]
    } case ;