next-char ( ch -- ? ch' )

Vocabulary

successor.private

Inputs

ch

an object

Outputs

?	an object
ch'	an object

Definition

USING: ascii combinators kernel ;

IN: successor.private

: next-char ( ch -- ? ch' )
    {
        { [ dup digit? ] [ next-digit ] }
        { [ dup Letter? ] [ next-letter ] }
        [ t swap ]
    } cond ;