setup-growth ( h p -- )

Vocabulary

peg.private

Inputs

h	an object
p	an object

Outputs

None

Definition

USING: accessors kernel namespaces ;

IN: peg.private

: setup-growth ( h p -- )
    pos set dup involved-set>> clone >>eval-set drop ;