compose-jamo ( str i -- str i )


Vocabulary
unicode.normalize.private

Inputs
stran object
ian object


Outputs
stran object
ian object


Definition
USING: kernel make math sequences ;

IN: unicode.normalize.private

: compose-jamo ( str i -- str i )
2dup initial-medial?
[ 2dup --final? [ imf% ] [ im% ] if ]
[ 2dup swap nth , 1 + ] if ;