From: hanwen <hanwen>
Date: Mon, 26 Jul 2004 17:44:41 +0000 (+0000)
Subject: (scm_is_int): compat glue.
X-Git-Tag: release/2.3.9~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ae1f7ea71ff52bc8bfc32c81652ba4785bf067af;p=lilypond.git

(scm_is_int): compat glue.
---

diff --git a/ChangeLog b/ChangeLog
index 992f5ef7ab..e55f9813e1 100644
--- 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 45f0f820b1..e3139c281b 100644
--- 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 */