reorder-next ( string i -- new-i done? )

Vocabulary

unicode.normalize.private

Inputs

string	an object
i	an object

Outputs

new-i	an object
done?	an object

Definition

USING: accessors kernel sequences sorting.insertion unicode.data
;

IN: unicode.normalize.private

: reorder-next ( string i -- new-i done? )
    over [ non-starter? ] find-from drop [
        reorder-slice
        [ dup [ combining-class ] insertion-sort to>> ] dip
    ] [ length t ] if* ; inline