(scm_is_int): compat glue.

diff --git a/ChangeLog b/ChangeLog
index 992f5ef7ab5fa143c1f99aac37a3804e599bc65b..e55f9813e10a06274a057293846ac31c2749277b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-07-26  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+       * lily/include/lily-guile.hh (scm_is_int): compat glue.
+
 2004-07-25  Pedro Kroger  <kroeger@pedrokroeger.net>
 
        * input/regression/page-layout.ly: new file.

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 45f0f820b14d6451e380c9ec7869649b4513f600..e3139c281bab1473bc09a04cc4cc8e4dfb196d47 100644 (file)
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -21,6 +21,7 @@
 #define scm_gc_register_collectable_memory(a, b, c) scm_done_malloc (b)
 #define SCM_VECTOR_REF(v,i) (SCM_VELTS ((v))[(i)])
 #define scm_from_int(x) SCM_MAKINUM (x)
+#define scm_is_int(x) SCM_INUMP (x)
 #define scm_hash_table_p scm_vector_p
 #endif /* SCM_MINOR_VERSION < 7 */