From 7450dab8e6bf852a3be27a54d8c78667006a92ed Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 13 Jul 2004 20:41:15 +0000
Subject: [PATCH] (scm_from_int): add scm_from_int glue.
---
ChangeLog | 4 ++++
lily/include/lily-guile.hh | 1 +
2 files changed, 5 insertions(+)
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
--
2.39.5