diff options
-rw-r--r-- | libguile/read.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c index eead36841..e862c206e 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -31,6 +31,7 @@ #include <unicase.h> #include <unictype.h> #include <c-strcase.h> +#include <c-ctype.h> #include "libguile/_scm.h" #include "libguile/bytevectors.h" @@ -966,7 +967,7 @@ try_read_ci_chars (SCM port, const char *expected_chars) c = scm_getc (port); if (c == EOF) break; - else if (tolower (c) != expected_chars[num_chars_read]) + else if (c_tolower (c) != expected_chars[num_chars_read]) { scm_ungetc (c, port); break; |