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