(scm_from_locale_string):

add scm_from_locale_string compatibility glue.

diff --git a/flower/include/guile-compatibility.hh b/flower/include/guile-compatibility.hh
index 690db85d1947f8479269df7edf7d39228a2fe5c4..be79916ab1780fd1e74612196bf2608def2bc139 100644 (file)
--- a/flower/include/guile-compatibility.hh
+++ b/flower/include/guile-compatibility.hh
@@ -44,6 +44,7 @@ inline SCM scm_cadar (SCM x) { return SCM_CADAR (x); }
 #define scm_is_string(x) SCM_STRINGP (x)
 #define scm_hash_table_p scm_vector_p
 #define scm_from_locale_stringn(s, n) scm_mem2string (s, n)
+#define scm_from_locale_string(x) scm_makfrom0str(x)
 #define scm_i_string_chars(x) SCM_STRING_CHARS (x)
 #define scm_i_string_length(x) SCM_STRING_LENGTH (x)
 inline int ly_c_number_p (SCM x) { return SCM_NUMBERP (x); }