add ly_string2scm()

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 11d21765a23d8da10e1ad15f90d0b6d568e53217..0aa93904c98a34e0645b1615949c5266a1372420 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -45,7 +45,7 @@ ly_to_string (SCM scm)
 {
   return scm_call_3 (ly_lily_module_constant ("format"), SCM_BOOL_F,
 
-                    scm_makfrom0str ("~S"), scm);
+                    scm_from_locale_string ("~S"), scm);
 }
 
 SCM
@@ -129,6 +129,14 @@ ly_scm2string (SCM str)
                 (int) scm_i_string_length (str));
 }
 
+SCM
+ly_string2scm (string str)
+{
+  return scm_from_locale_stringn (str.c_str(),
+                                 str.length ());
+}
+
+
 char *
 ly_scm2newstr (SCM str, size_t *lenp)
 {