with-packrat ( input quot -- result )

Vocabulary

peg.private

Inputs

input	an object
quot	an object

Outputs

result

an object

Definition

USING: kernel make namespaces ;

IN: peg.private

: with-packrat ( input quot -- result )
    [
        swap input ,, 0 pos ,, f lrstack ,,
        V{ } clone error-stack ,, H{ } clone \ heads ,,
        H{ } clone \ packrat ,,
    ] H{ } make swap with-variables ; inline