fix-sigma-end ( string -- string )

Vocabulary

unicode.case.private

Inputs

string

an object

Outputs

string

an object

Definition

USING: kernel sequences ;

IN: unicode.case.private

: fix-sigma-end ( string -- string )
    [ "" ] [ dup last 963 = [ but-last 962 suffix ] when ]
    if-empty ; inline