diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-03-11 17:52:41 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-03-11 17:52:41 +0000 |
commit | bd7c7fc63729adf957331174badfba5f87f18d80 (patch) | |
tree | 91f6fd899bd61ba22a8df560cd22a881016628d4 /srfi/srfi-13.c | |
parent | d955de820d467c26dadea1e612f9b7163be21f92 (diff) | |
download | guile-bd7c7fc63729adf957331174badfba5f87f18d80.tar.gz |
(string_titlecase_x): Treat characters as unsigned so that 8-bit chars
work. Thanks to David Pirotte!
Diffstat (limited to 'srfi/srfi-13.c')
-rw-r--r-- | srfi/srfi-13.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c index 3d32cf744..38d53fece 100644 --- a/srfi/srfi-13.c +++ b/srfi/srfi-13.c @@ -2106,10 +2106,10 @@ SCM_DEFINE (scm_string_downcaseS, "string-downcase", 1, 2, 0, static SCM string_titlecase_x (SCM str, int start, int end) { - char * sz; + unsigned char * sz; int i, in_word = 0; - sz = SCM_STRING_CHARS (str); + sz = SCM_STRING_UCHARS (str); for(i = start; i < end; i++) { if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i])))) |