summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index 7c5550fb3..5130cb362 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -1997,7 +1997,10 @@ u32_u8_length_in_bytes (const scm_t_uint32 *str, size_t len)
char *
scm_to_utf8_stringn (SCM str, size_t *lenp)
+#define FUNC_NAME "scm_to_utf8_stringn"
{
+ SCM_VALIDATE_STRING (1, str);
+
if (scm_i_is_narrow_string (str))
return (char *) latin1_to_u8 ((scm_t_uint8 *) scm_i_string_chars (str),
scm_i_string_length (str),
@@ -2044,6 +2047,7 @@ scm_to_utf8_stringn (SCM str, size_t *lenp)
}
}
}
+#undef FUNC_NAME
scm_t_wchar *
scm_to_utf32_string (SCM str)