unsafe-number-from-to ( to from -- to from+n )

Vocabulary

backtrack.private

Inputs

to	an object
from	an object

Outputs

to	an object
from+n	an object

Definition

USING: backtrack kernel math ;

IN: backtrack.private

: unsafe-number-from-to ( to from -- to from+n )
    2dup = [ [ 1 + unsafe-number-from-to ] checkpoint ] unless ;