try-compose ( state new-char current-class -- state )

Vocabulary

unicode.normalize.private

Inputs

state	an object
new-char	an object
current-class	an object

Outputs

state

an object

Definition

USING: accessors kernel unicode.data ;

IN: unicode.normalize.private

:: try-compose ( state new-char current-class -- state )
    state last-class>> current-class =
    [ new-char state push-after ] [
        state char>> new-char combine-chars
        [ state swap >>char ]
        [ new-char state push-after current-class >>last-class ]
        if*
    ] if ; inline