summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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;