*** empty log message ***

[lilypond.git] / lily / include / guile-compatibility.hh

diff --git a/lily/include/guile-compatibility.hh b/lily/include/guile-compatibility.hh
index 13a160733c3661c695131ef1a644bc8ee62d3c91..6dd1bea91962ffcc9946c713b7279aa8387ee651 100644 (file)
--- a/lily/include/guile-compatibility.hh
+++ b/lily/include/guile-compatibility.hh
@@ -55,6 +55,7 @@ inline bool ly_c_boolean_p (SCM x) { return SCM_BOOLP (x); }
 inline bool ly_c_eq_p (SCM x, SCM y) { return SCM_EQ_P (x, y); }
 #define scm_is_eq(x,y)  (SCM_EQ_P((x), (y)))
 
+#define scm_c_string_length(x) SCM_STRING_LENGTH(x)
 #define scm_is_pair(x) (SCM_CONSP(x))