diff options
author | Michael Gran <spk121@yahoo.com> | 2009-08-27 07:35:39 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-08-27 07:44:18 -0700 |
commit | 026ed23911032ed8880af97d993315615b9f5b07 (patch) | |
tree | ea5b7a939ea8683206bb362c345d830b9da49807 | |
parent | 930ddd34c32b2cad49ffb254951e3cac50c1b341 (diff) | |
download | guile-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.c | 4 |
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; |