(grow-lr) ( h p r: ( -- result ) m -- )

Vocabulary

peg.private

Inputs

h	an object
p	an object
r	a quotation with stack effect ( -- result )
m	an object

Outputs

None

Definition

USING: kernel ;

IN: peg.private

: (grow-lr) ( h p r: ( -- result ) m -- )
    [ [ setup-growth ] 2keep ] 2dip [ dup eval-rule ] dip
    swap dup pick stop-growth?
    [ 5drop ] [ over update-m (grow-lr) ] if ; inline recursive