>local-word ( string -- word )

Vocabulary

infix.private

Inputs

string

an object

Outputs

word

an object

Definition

USING: combinators.short-circuit effects kernel locals.types
vocabs.parser words.constant ;

IN: infix.private

: >local-word ( string -- word )
    dup search dup {
        [ local? ]
        [ constant? ]
        [ stack-effect ( -- x ) effect= ]
    } 1|| [ nip ] [ drop local-not-defined ] if ;