summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c
index 3f72810c1..fa8499024 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -30,6 +30,7 @@
#include <uniconv.h>
#include <unictype.h>
+#include <c-strcase.h>
#include "libguile/_scm.h"
#include "libguile/chars.h"
@@ -895,8 +896,8 @@ display_string_using_iconv (const void *str, int narrow_p, size_t len,
pti->at_stream_start_for_bom_read = 0;
/* Write a BOM if appropriate. */
- if (SCM_UNLIKELY (strcasecmp(pt->encoding, "UTF-16") == 0
- || strcasecmp(pt->encoding, "UTF-32") == 0))
+ if (SCM_UNLIKELY (c_strcasecmp(pt->encoding, "UTF-16") == 0
+ || c_strcasecmp(pt->encoding, "UTF-32") == 0))
display_character (SCM_UNICODE_BOM, port, iconveh_error);
}