parse-fry ( reader-quot: ( -- object ) -- quot )

Vocabulary

locals.parser

Inputs

reader-quot

a quotation with stack effect ( -- object )

Outputs

quot

an object

Definition

USING: fry namespaces ;

IN: locals.parser

: parse-fry ( reader-quot: ( -- object ) -- quot )
    '[ t in-fry? _ with-variable fry ] with-fry-scope ; inline