summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/ports.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index 749d97533..b3547f5cd 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -990,7 +990,7 @@ scm_getc (SCM port)
if (pt->encoding == NULL)
{
/* The encoding is Latin-1: bytes are characters. */
- codepoint = buf[0];
+ codepoint = (unsigned char) buf[0];
goto success;
}