summaryrefslogtreecommitdiff
path: root/srfi/srfi-13.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-03-11 17:52:41 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-03-11 17:52:41 +0000
commitbd7c7fc63729adf957331174badfba5f87f18d80 (patch)
tree91f6fd899bd61ba22a8df560cd22a881016628d4 /srfi/srfi-13.c
parentd955de820d467c26dadea1e612f9b7163be21f92 (diff)
downloadguile-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.c4
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]))))