Make scm_i_from_stringn into API for use with libguilereadline

[bpt/guile.git] / libguile / strings.c

diff --git a/libguile/strings.c b/libguile/strings.c
index 06e3359..5784a03 100644 (file)
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -1478,8 +1478,8 @@ scm_is_string (SCM obj)
 }
 
 SCM
-scm_i_from_stringn (const char *str, size_t len, const char *encoding,
-                    scm_t_string_failed_conversion_handler handler)
+scm_from_stringn (const char *str, size_t len, const char *encoding,
+                  scm_t_string_failed_conversion_handler handler)
 {
   size_t u32len, i;
   scm_t_wchar *u32;
@@ -1578,7 +1578,7 @@ scm_from_locale_stringn (const char *str, size_t len)
       hndl = SCM_FAILED_CONVERSION_ERROR;
     }
 
-  return scm_i_from_stringn (str, len, enc, hndl);
+  return scm_from_stringn (str, len, enc, hndl);
 }
 
 SCM
@@ -1593,7 +1593,7 @@ scm_from_locale_string (const char *str)
 SCM
 scm_i_from_utf8_string (const scm_t_uint8 *str)
 {
-  return scm_i_from_stringn ((const char *) str,
+  return scm_from_stringn ((const char *) str,
                            strlen ((char *) str), "UTF-8",
                            SCM_FAILED_CONVERSION_ERROR);
 }