diff options
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) |