apply-rule ( r p -- ast )

Vocabulary

peg.private

Inputs

r	an object
p	an object

Outputs

ast

an object

Definition

USING: kernel ;

IN: peg.private

: apply-rule ( r p -- ast )
    2dup recall
    [ nip apply-memo-rule ] [ apply-non-memo-rule ] if* ; inline