string-append ( s1 s2 -- string )

Vocabulary

unicode

Inputs

s1	an object
s2	an object

Outputs

string

an object

Definition

USING: kernel sequences unicode.data unicode.normalize.private ;

IN: unicode

: string-append ( s1 s2 -- string )
    [ append ] keep 0 over ?nth non-starter?
    [ length dupd reorder-back ] [ drop ] if ;