stop-growth? ( ast m -- ? )

Vocabulary

peg.private

Inputs

ast	an object
m	an object

Outputs

?

an object

Definition

USING: accessors kernel math namespaces peg ;

IN: peg.private

: stop-growth? ( ast m -- ? )
    [ fail = pos get ] dip pos>> <= or ;