summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c11
1 files changed, 11 insertions, 0 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index 52dfb530a..68fa25c8a 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -1502,6 +1502,12 @@ scm_from_stringn (const char *str, size_t len, const char *encoding,
}
SCM
+scm_from_latin1_stringn (const char *str, size_t len)
+{
+ return scm_from_stringn (str, len, NULL, SCM_FAILED_CONVERSION_ERROR);
+}
+
+SCM
scm_from_locale_stringn (const char *str, size_t len)
{
const char *enc;
@@ -1697,6 +1703,11 @@ unistring_escapes_to_r6rs_escapes (char **bufp, size_t *lenp)
memcpy (before, after, j);
}
+char *
+scm_to_latin1_stringn (SCM str, size_t *lenp)
+{
+ return scm_to_stringn (str, lenp, NULL, SCM_FAILED_CONVERSION_ERROR);
+}
char *
scm_to_locale_stringn (SCM str, size_t *lenp)