(parse-locals-definition) ( effect vars assoc reader-quot -- word quot effect )

Vocabulary

locals.parser

Inputs

effect	an object
vars	an object
assoc	an object
reader-quot	an object

Outputs

word	an object
quot	an object
effect	an object

Definition

USING: kernel locals.errors locals.rewrite locals.types
sequences words ;

IN: locals.parser

: (parse-locals-definition)
    ( effect vars assoc reader-quot -- word quot effect )
    with-lambda-scope <lambda>
    [ nip "lambda" set-word-prop ] [
        nip rewrite-closures dup length 1 =
        [ first ] [ bad-rewrite ] if
    ] [ drop nip ] 3tri ; inline