stop-growth? ( ast m -- ? )

Vocabulary

peg

Inputs

ast	an object
m	an object

Outputs

?

an object

Definition

USING: accessors kernel math namespaces ;

IN: peg

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