(walk-down) ( str i -- j )

Vocabulary

unicode.breaks.private

Inputs

str	an object
i	an object

Outputs

j

an object

Definition

USING: kernel sequences ;

IN: unicode.breaks.private

: (walk-down) ( str i -- j )
    swap [ format/extended/zwj? not ] find-last-from drop ;