mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-07 01:50:32 +02:00
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'.
This commit is contained in:
parent
394449d5d3
commit
0fc548287e
1 changed files with 2 additions and 1 deletions
|
@ -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;
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue