(scm_from_double): more compat glue.

diff --git a/ChangeLog b/ChangeLog
index 3743579acf641ad496258fa9c4210fcf4ae442dd..a7a40b477bdb8057685d5a980cd5646890b407f4 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-04  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+       * lily/include/lily-guile.hh (scm_from_double): more compat glue.
+
 2004-09-03  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
        * lily/simple-spacer.cc (LY_DEFINE): return something sensible for

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 47d836e4656b6650ae00ea9d561a620e4d89faea..7004c02605109ece6caa84fb13c091124f2ee37d 100644 (file)
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -27,6 +27,9 @@
 #define scm_i_string_chars(x) SCM_STRING_CHARS(x)
 #define scm_i_string_length(x) SCM_STRING_LENGTH(x)
 #define scm_is_number(x) (scm_number_p(x)==SCM_BOOL_T)
+#define scm_to_int(x) (ly_scm2int(x))
+#define scm_to_double(x) (ly_scm2double(x))
+#define scm_from_double(x) (scm_make_real(x))
 #endif /* SCM_MINOR_VERSION < 7 */
 
 #ifndef SMOB_FREE_RETURN_VAL