summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-28 21:19:05 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-28 21:19:05 -0700
commit6d736fdba2135de42e742924eac32e1c6bd9b79a (patch)
tree104b22398b200f71a729a325c7e1e11aee50096e /libguile/read.c
parent5950cc3fcc7fb0d13be23fcccb8916fd8c2da4e2 (diff)
downloadguile-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.c3
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)