diff options
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 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))); |