diff options
| author | Mark H Weaver <mhw@netris.org> | 2013-04-03 13:26:01 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2013-04-03 13:31:51 -0400 |
| commit | 7290de89fb5bf755e2520bd01e977dc132c50c4b (patch) | |
| tree | e2e285b75281dbfedd9cdd6dd09f7a7cd1889c48 /libguile/read.c | |
| parent | 72e2b5923a15f49fd7f7706fe35dfc1157a41bb5 (diff) | |
Use 'strcasecmp' to compare encoding names.
Reported by Ludovic Courtès <ludo@gnu.org>.
* libguile/ports.c (scm_new_port_table_entry,
scm_i_set_default_port_encoding, scm_i_set_port_encoding_x):
libguile/read.c (scm_i_scan_for_encoding): Use 'strcasecmp' to compare
encoding names.
Diffstat (limited to 'libguile/read.c')
| -rw-r--r-- | libguile/read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c index 645795243..3c5f0a44d 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -2102,7 +2102,7 @@ scm_i_scan_for_encoding (SCM port) /* This wasn't in a comment */ return NULL; - if (utf8_bom && strcmp(encoding, "UTF-8")) + if (utf8_bom && 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))); |