summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-27 07:35:39 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-27 07:44:18 -0700
commit026ed23911032ed8880af97d993315615b9f5b07 (patch)
treeea5b7a939ea8683206bb362c345d830b9da49807
parent930ddd34c32b2cad49ffb254951e3cac50c1b341 (diff)
downloadguile-026ed23911032ed8880af97d993315615b9f5b07.tar.gz
Always cast input to toupper as int
* libguile/read.c (scm_scan_for_encoding): add cast to int
-rw-r--r--libguile/read.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/read.c b/libguile/read.c
index c36842aac..d91c868e1 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -1446,8 +1446,8 @@ scm_scan_for_encoding (SCM port)
encoding = scm_malloc (i+1);
memcpy (encoding, pos, i);
encoding[i] ='\0';
- for (i = 0; i < strlen(encoding); i++)
- encoding[i] = toupper(encoding[i]);
+ for (i = 0; i < strlen (encoding); i++)
+ encoding[i] = toupper ((int) encoding[i]);
/* push backwards to make sure we were in a comment */
in_comment = 0;