add-dots ( seq -- seq )

Vocabulary

unicode.case.private

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: combinators.short-circuit kernel sequences ;

IN: unicode.case.private

: add-dots ( seq -- seq )
    [
        [ { } ] [
            [
                dup first { [ mark-above? ] [ 808 = ] } 1||
                [ 775 prefix ] when
            ] map
        ] if-empty
    ] with-rest ; inline