apply-memo-rule ( r m -- ast )

Vocabulary

peg.private

Inputs

r	an object
m	an object

Outputs

ast

an object

Definition

USING: accessors kernel namespaces ;

IN: peg.private

: apply-memo-rule ( r m -- ast )
    [ ans>> ] [ pos>> ] bi pos set dup left-recursion?
    [ [ setup-lr ] keep seed>> ] [ nip ] if ;