setup-lr ( r l -- )

Vocabulary

peg.private

Inputs

r	an object
l	an object

Outputs

None

Definition

USING: accessors kernel namespaces ;

IN: peg.private

:: setup-lr ( r l -- )
    l head>>
    [ r rule-id V{ } clone V{ } clone peg-head boa l head<< ]
    unless l lrstack get (setup-lr) ;