parse-fry-form ( opener reader-quot: ( -- object ) finish-quot -- quot )

Vocabulary

locals.parser

Inputs

opener	an object
reader-quot	a quotation with stack effect ( -- object )
finish-quot	an object

Outputs

quot

an object

Definition

USING: arrays fry kernel locals.types namespaces quotations
sequences ;

IN: locals.parser

: parse-fry-form
    ( opener reader-quot: ( -- object ) finish-quot -- quot )
    swapd '[
        t in-fry? _ with-variable
        [ _ swap 2array ] [ fry _ append ] bi <fry-form>
        1quotation
    ] with-fry-scope ; inline