carry ( elt last first -- ? elt' )

Vocabulary

successor.private

Inputs

elt	an object
last	an object
first	an object

Outputs

?	an object
elt'	an object

Definition

USING: kernel math ;

IN: successor.private

: carry ( elt last first -- ? elt' ) '[ _ > dup _ ] keep ? ;