rem: return scheme_ucs4_to_utf16 (SCHEME_CHAR_STR_VAL (obj), 0, SCHEME_CHAR_STRLEN_VAL (obj), NULL, 0, result_length, 0);
add: return schemeUCS4ToUTF16(SCHEME_CHAR_STR_VAL (obj), SCHEME_CHAR_STRLEN_VAL (obj), result_length);
context: LPWSTR schemeCharStringToWideChar (Scheme_Object * obj, long * result_length){  return      scheme_ucs4_to_utf16 (SCHEME_CHAR_STR_VAL (obj),			    0, SCHEME_CHAR_STRLEN_VAL (obj),			    NULL, 0,			    result_length, 0);}