From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 3 Sep 2004 23:25:41 +0000 (+0000)
Subject: (scm_from_double): more compat glue.
X-Git-Tag: release/2.3.14~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=78ac86aedffba0e7326976d7cc6963b3ee5b8363;p=lilypond.git

(scm_from_double): more compat glue.
---

diff --git a/ChangeLog b/ChangeLog
index 3743579acf..a7a40b477b 100644
--- 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 47d836e465..7004c02605 100644
--- 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