summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/read.c3
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;