summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-04-05 14:04:53 -0400
committerMark H Weaver <mhw@netris.org>2013-04-05 14:10:28 -0400
commit96965a6ecb04b5380fd6d618e70d64dec3ac37be (patch)
treefa54da91351ac2e7afc55ea4e561e1c72824997e /libguile/read.c
parente501f2111e0d5a8bc037cfe3df4e6ba0655285d5 (diff)
downloadguile-96965a6ecb04b5380fd6d618e70d64dec3ac37be.tar.gz
Use 'c_strcasecmp' instead of 'strcasecmp'.
* libguile/ports.c (scm_new_port_table_entry, get_codepoint, scm_i_set_default_port_encoding, scm_i_port_iconv_descriptors, scm_i_set_port_encoding_x): * libguile/print.c (display_string_using_iconv): * libguile/read.c (scm_i_scan_for_encoding): Use 'c_strcasecmp'.
Diffstat (limited to 'libguile/read.c')
-rw-r--r--libguile/read.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c
index 3c5f0a44d..64b55c3e5 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -30,6 +30,7 @@
#include <unistd.h>
#include <unicase.h>
#include <unictype.h>
+#include <c-strcase.h>
#include "libguile/_scm.h"
#include "libguile/bytevectors.h"
@@ -2102,7 +2103,7 @@ scm_i_scan_for_encoding (SCM port)
/* This wasn't in a comment */
return NULL;
- if (utf8_bom && strcasecmp(encoding, "UTF-8"))
+ if (utf8_bom && c_strcasecmp(encoding, "UTF-8"))
scm_misc_error (NULL,
"the port input declares the encoding ~s but is encoded as UTF-8",
scm_list_1 (scm_from_locale_string (encoding)));