mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-07 18:10:21 +02:00
Code Activity

read: use 'c_tolower' instead of 'tolower' in 'try_read_ci_chars'.

Browse source 
* libguile/read.c: Include <c-ctype.h>.
  (try_read_ci_chars): Use 'c_tolower' instead of 'tolower'.
This commit is contained in:
Mark H Weaver 2014-01-14 03:13:58 -05:00
parent 394449d5d3
commit 0fc548287e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/read.c
View file

@ -31,6 +31,7 @@
#include <unicase.h> #include <unicase.h>
#include <unictype.h> #include <unictype.h>
#include <c-strcase.h> #include <c-strcase.h>
#include <c-ctype.h>
#include "libguile/_scm.h" #include "libguile/_scm.h"
#include "libguile/bytevectors.h" #include "libguile/bytevectors.h"
@ -966,7 +967,7 @@ try_read_ci_chars (SCM port, const char *expected_chars)
c = scm_getc (port); c = scm_getc (port);
if (c == EOF) if (c == EOF)
break; break;
else if (tolower (c) != expected_chars[num_chars_read]) else if (c_tolower (c) != expected_chars[num_chars_read])
{ {
scm_ungetc (c, port); scm_ungetc (c, port);
break; break;