grow-lr ( h p r m -- ast ) - Factor Documentation

grow-lr ( h p r m -- ast )

Vocabulary
peg.private

Inputs

h	an object
p	an object
r	an object
m	an object

Outputs

ast

Definition

USING: accessors assocs kernel namespaces ;

IN: peg.private

: grow-lr ( h p r m -- ast )
[ [ heads set-at ] 2keep ] 2dip pick over [ (grow-lr) ] 2dip
swap heads delete-at dup pos>> pos set ans>> ; inline