(setup-lr) ( l s -- )

Vocabulary

peg.private

Inputs

l	an object
s	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: peg.private

:: (setup-lr) ( l s -- )
    s [
        s left-recursion? [ s throw ] unless
        s head>> l head>> eq? [
            l head>> s head<< l head>>
            [ s rule-id>> suffix ] change-involved-set drop
            l s next>> (setup-lr)
        ] unless
    ] when ;