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 ] curry ] dip [ ] curry compose keep ? ;