(scm_from_int): add scm_from_int glue.

diff --git a/ChangeLog b/ChangeLog
index 4fbe797a27ee4d36aa8d6ff8dc9c13aec25a5e24..eed9ba651a9b9d155d2ae9d95945ffd5a18196f3 100644 (file)
--- 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 ba971fb20a15253e65111e439821bd345d78cdb8..0b5e2a01638830af28734121984cc0d5db5b4f48 100644 (file)
--- 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