From bdac84a683dc353a5afa485b95d4bca642178ca2 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Tue, 12 Jul 2005 22:15:39 +0000
Subject: [PATCH] (scm_from_locale_string): add scm_from_locale_string
 compatibility glue.

---
 flower/include/guile-compatibility.hh | 1 +
 1 file changed, 1 insertion(+)

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); }
-- 
2.39.5