walk-up ( str i -- j )

Vocabulary

unicode.breaks.private

Inputs

str	an object
i	an object

Outputs

j

an object

Definition

USING: kernel math ;

IN: unicode.breaks.private

: walk-up ( str i -- j )
    dupd 1 + (walk-up) [ 1 + (walk-up) ] [ drop f ] if* ;