find-and-check ( args argcount string -- quot )

Vocabulary

infix.private

Inputs

args	an object
argcount	an object
string	an object

Outputs

quot

an object

Definition

USING: kernel parser quotations ;

IN: infix.private

: find-and-check ( args argcount string -- quot )
    parse-word [ nip ] [ check-word ] 2bi
    [ 1quotation compose ] [ bad-stack-effect ] if ;