diff options
author | Michael Gran <spk121@yahoo.com> | 2009-08-28 21:19:05 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-08-28 21:19:05 -0700 |
commit | 6d736fdba2135de42e742924eac32e1c6bd9b79a (patch) | |
tree | 104b22398b200f71a729a325c7e1e11aee50096e /libguile/read.c | |
parent | 5950cc3fcc7fb0d13be23fcccb8916fd8c2da4e2 (diff) | |
download | guile-6d736fdba2135de42e742924eac32e1c6bd9b79a.tar.gz |
Cast the input to isalpha et al to integer
* libguile/gc_os_dep.c (GC_linux_stack_base) [LINUX_STACKBOTTOM]: cast
input of ctype functions to int
* libguile/inet_aton.c (inet_aton): cast input of ctype functions to int
* libguile/read.c (scm_scan_for_encoding): cast input of isalnum to int
* libguile/win32-socket.c (scm_i_socket_uncomment): cast input of isspace
to int
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c index d91c868e1..a784f3421 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1437,7 +1437,8 @@ scm_scan_for_encoding (SCM port) /* grab the next token */ i = 0; while (pos + i - header <= SCM_ENCODING_SEARCH_SIZE - && (isalnum(pos[i]) || pos[i] == '_' || pos[i] == '-' || pos[i] == '.')) + && (isalnum((int) pos[i]) || pos[i] == '_' || pos[i] == '-' + || pos[i] == '.')) i++; if (i == 0) |