From bd7c7fc63729adf957331174badfba5f87f18d80 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 11 Mar 2002 17:52:41 +0000 Subject: [PATCH] (string_titlecase_x): Treat characters as unsigned so that 8-bit chars work. Thanks to David Pirotte! --- srfi/srfi-13.c | 4 ++-- 1 file 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]))))