map-case ( string string-quot char-quot -- case )

Vocabulary

unicode.case.private

Inputs

string	an object
string-quot	an object
char-quot	an object

Outputs

case

an object

Definition

USING: kernel sbufs sequences unicode.data ;

IN: unicode.case.private

:: map-case ( string string-quot char-quot -- case )
    string length <sbuf> :> out string [
        [ special-case ] [ string-quot call out push-all ]
        [ char-quot call out push ] ?if
    ] each out "" like ; inline