EMIT*:

Vocabulary

locals.lazy

Inputs

parsed

an object

Outputs

parsed

an object

Definition

USING: accessors assocs effects.parser kernel
locals.lazy.private parser quotations sequences vocabs.parser
words ;

IN: locals.lazy

SYNTAX: EMIT*:
    scan-new-word scan-effect [
        in>> make-lazy-vars \ lazy-:> ":>" pick set-at
        [ parse-definition ] with-words
    ] [
        [ in>> [ <lazy> ] [ ] map-as ]
        [ out>> <lazy-bind> 1quotation ] bi surround
    ] bi [ replace-lazy-vars append! ] curry define-syntax ;