(compose) ( str i -- )

Vocabulary

unicode.normalize.private

Inputs

str	an object
i	an object

Outputs

None

Definition

USING: kernel make math sequences unicode.data ;

IN: unicode.normalize.private

:: (compose) ( str i -- )
    i str ?nth [
        dup jamo?
        [ drop str i compose-jamo ] [
            i 1 + str ?nth combining-class
            [ str i 1 + compose-combining ] [ , str i 1 + ] if
        ] if (compose)
    ] when* ; inline recursive