reorder-slice ( string start -- slice done? )

Vocabulary

unicode.normalize.private

Inputs

string	an object
start	an object

Outputs

slice	an object
done?	an object

Definition

USING: kernel sequences unicode.data ;

IN: unicode.normalize.private

: reorder-slice ( string start -- slice done? )
    2dup swap [ non-starter? not ] find-from drop
    [ [ over length ] unless* rot <slice> ] keep not ; inline