next-digit ( ch -- ? ch' )

Vocabulary

successor.private

Inputs

ch

an object

Outputs

?	an object
ch'	an object

Definition

USING: math ;

IN: successor.private

: next-digit ( ch -- ? ch' ) 1 + 57 48 carry ;