next-letter ( ch -- ? ch' )


Vocabulary
successor.private

Inputs
chan object


Outputs
?an object
ch'an object


Definition
USING: ascii kernel math ;

IN: successor.private

: next-letter ( ch -- ? ch' )
[ ch>lower 1 + 122 97 carry ] [ LETTER? ] bi
[ ch>upper ] when ;