scm_getc improperly handles Latin-1 characters

Upper-plane Latin-1 characters should be converted to codepoints.

* libguile/ports.c (scm_getc): improper conversion of char to scm_t_wchar

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;
     }