From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 12 Jul 2005 22:15:39 +0000 (+0000)
Subject: (scm_from_locale_string):
X-Git-Tag: release/2.7.1~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=771e0f32720ecafddeb559df7dda25e1277bed63;p=lilypond.git

(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 690db85d19..be79916ab1 100644
--- 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); }