diff options
-rw-r--r-- | libguile/ports.c | 2 |
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; } |