From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 13 Jul 2004 20:41:15 +0000 (+0000)
Subject: (scm_from_int): add scm_from_int glue.
X-Git-Tag: release/2.3.7~58
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7450dab8e6bf852a3be27a54d8c78667006a92ed;p=lilypond.git

(scm_from_int): add scm_from_int glue.
---

diff --git a/ChangeLog b/ChangeLog
index 4fbe797a27..eed9ba651a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-07-13  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+	* lily/include/lily-guile.hh (scm_from_int): add scm_from_int glue.
+
 2004-07-13  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* SConstruct: Configure only pristine build tree or on user
diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index ba971fb20a..0b5e2a0163 100644
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -70,6 +70,7 @@ inline SCM scm_c_make_vector  (int k, SCM val) {
 #define scm_gc_unregister_collectable_memory(a,b,c) scm_done_free(b)
 #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_hash_table_p scm_vector_p 
 
 #endif