(scm_from_unsigned): add scm_from_unsigned().

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

diff --git a/flower/include/guile-compatibility.hh b/flower/include/guile-compatibility.hh
index 3b27b579ec49d95a533594da9369f9c0e805e880..022771812aab083ac819f1f038702fd5685af279 100644 (file)
--- a/flower/include/guile-compatibility.hh
+++ b/flower/include/guile-compatibility.hh
@@ -41,6 +41,7 @@ inline SCM scm_cadar (SCM x) { return SCM_CADAR (x); }
 #define scm_from_bool(x) (x ? SCM_BOOL_T : SCM_BOOL_F)
 #define scm_from_int(x) SCM_MAKINUM (x)
 #define scm_from_unsigned_integer(x) scm_uint2num (x)
+#define scm_from_unsigned(x) scm_uint2num (x)
 #define scm_is_integer(x) SCM_INUMP (x)
 #define scm_is_string(x) SCM_STRINGP (x)
 #define scm_hash_table_p scm_vector_p