locale>upper ( string -- string' )

Vocabulary

unicode.case.private

Inputs

string

an object

Outputs

string'

an object

Definition

USING: kernel namespaces unicode.case ;

IN: unicode.case.private

: locale>upper ( string -- string' )
    locale get
    [ i-dot? [ turk>upper ] when ]
    [ lithuanian? [ lithuanian>upper ] when ] bi ;