diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2005-05-12 06:39:50 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2005-05-12 06:39:50 +0000 |
commit | 5a6d139b3522cb821b41ff856ccd185febd8cae1 (patch) | |
tree | a39bac4355a733ee2af5961b0a479ae9abbc310a /libguile/srfi-13.c | |
parent | b01532af77392c508b6850304bfefde4f7d23b7e (diff) | |
download | guile-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.c | 2 |
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])))) |