summaryrefslogtreecommitdiff
path: root/libguile/srfi-13.c
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2005-05-12 06:39:50 +0000
committerNeil Jerram <neil@ossau.uklinux.net>2005-05-12 06:39:50 +0000
commit5a6d139b3522cb821b41ff856ccd185febd8cae1 (patch)
treea39bac4355a733ee2af5961b0a479ae9abbc310a /libguile/srfi-13.c
parentb01532af77392c508b6850304bfefde4f7d23b7e (diff)
downloadguile-5a6d139b3522cb821b41ff856ccd185febd8cae1.tar.gz
* unif.c (scm_i_read_array): Declare rank as ssize_t, to guarantee
that it is signed. * strports.c (st_resize_port): Add unsigned char cast. (scm_mkstrport): Make read/write_buf cast unsigned. * srfi-13.c (string_titlecase_x): Add unsigned char cast. * rdelim.c (scm_read_line): Initialize slen. * load.c (scm_search_path): Remove weird >=1, and add parentheses to clarify conditions. * hash.c (scm_hasher): Add const unsigned char cast. * gh_data.c (gh_chars2byvect): Add scm_t_int8 cast.
Diffstat (limited to 'libguile/srfi-13.c')
-rw-r--r--libguile/srfi-13.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c
index a4e385787..5a797b32d 100644
--- a/libguile/srfi-13.c
+++ b/libguile/srfi-13.c
@@ -2473,7 +2473,7 @@ string_titlecase_x (SCM str, size_t start, size_t end)
size_t i;
int in_word = 0;
- sz = scm_i_string_writable_chars (str);
+ sz = (unsigned char *) scm_i_string_writable_chars (str);
for(i = start; i < end; i++)
{
if (scm_is_true (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i]))))