compose-iter ( state -- state )

Vocabulary

unicode.normalize.private

Inputs

state

an object

Outputs

state

an object

Definition

USING: accessors combinators kernel unicode.data ;

IN: unicode.normalize.private

: compose-iter ( state -- state )
    dup current [
        dup combining-class {
            { f [ drop ] }
            {
                0
                [
                    over last-class>>
                    [ drop ] [ try-noncombining ] if
                ]
            }
            [ try-compose to compose-iter ]
        } case
    ] when* ; inline recursive