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


Vocabulary
unicode.case.private

Inputs
stringan object
string-quotan object
char-quotan object


Outputs
casean object


Definition


:: 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