add ( char -- )

Vocabulary

unicode.collation.private

Inputs

char

an object

Outputs

None

Definition

USING: kernel make sequences strings ;

IN: unicode.collation.private

: add ( char -- )
    dup blocked?
    [ 1string , ] [
        dup possible-bases dup length <iota> [ ?combine ] 2with
        any? [ drop ] [ 1string , ] if
    ] if ;