walk-down ( 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-down ( str i -- j )
    dupd (walk-down) [ 1 - (walk-down) ] [ drop f ] if* ;