From 78ac86aedffba0e7326976d7cc6963b3ee5b8363 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 3 Sep 2004 23:25:41 +0000 Subject: [PATCH] (scm_from_double): more compat glue. --- ChangeLog | 4 ++++ lily/include/lily-guile.hh | 3 +++ 2 files changed, 7 insertions(+) diff --git a/ChangeLog b/ChangeLog index 3743579acf..a7a40b477b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-09-04 Han-Wen Nienhuys + + * lily/include/lily-guile.hh (scm_from_double): more compat glue. + 2004-09-03 Han-Wen Nienhuys * 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 -- 2.39.2