compose-combining ( ch str i -- str i )

Vocabulary

unicode.normalize.private

Inputs

ch	an object
str	an object
i	an object

Outputs

str	an object
i	an object

Definition

USING: accessors combinators kernel make ;

IN: unicode.normalize.private

: compose-combining ( ch str i -- str i )
    compose-state new swap >>i swap >>str swap >>char
    compose-iter
    { [ char>> , ] [ after>> % ] [ str>> ] [ i>> ] } cleave ;
    inline