with-fry-scope ( quot: ( -- quot ) -- quot )

Vocabulary

locals.parser

Inputs

quot	a quotation with stack effect ( -- quot )

Outputs

quot

an object

Definition

USING: kernel locals.rewrite locals.types namespaces ;

IN: locals.parser

: with-fry-scope ( quot: ( -- quot ) -- quot )
    in-lambda? get
    [ call ]
    [ H{ } clone swap with-lambda-scope <let> rewrite-closures ]
    if ; inline