diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-01-14 03:13:58 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-01-14 03:13:58 -0500 |
| commit | 0fc548287e154349f3365976e6a5854736b651ed (patch) | |
| tree | c4bd68af110544c5562d4e3fcec2547a05ae8902 /libguile/read.c | |
| parent | 394449d5d3922cab783d51398b7727ccaf07dd76 (diff) | |
read: use 'c_tolower' instead of 'tolower' in 'try_read_ci_chars'.
* libguile/read.c: Include <c-ctype.h>.
(try_read_ci_chars): Use 'c_tolower' instead of 'tolower'.
Diffstat (limited to 'libguile/read.c')
| -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; |