From 0c706e1f31ad97fca1fe31097e1b6f74dd57c6aa Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 14 Jul 2002 13:10:44 +0000
Subject: [PATCH] geile fixes

---
 lily/include/lily-guile.hh | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 03bdd0bbf4..a27d776a97 100644
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -67,11 +67,18 @@ inline SCM scm_c_make_vector  (int k, SCM val) {
 #define SCM_SYMBOL_LENGTH SCM_LENGTH
 #define SCM_VECTOR_LENGTH SCM_LENGTH
 
+#define SMOB_FREE_RETURN_VAL(CL) sizeof(CL) 
+#define scm_done_free(x) 
 #endif
 
 #if GUILE_MINOR_VERSION < 7
 #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)
+
+#ifndef SMOB_FREE_RETURN_VAL
+#define SMOB_FREE_RETURN_VAL(CL) 0
+#endif
+
 #endif
 
 #include "direction.hh"
-- 
2.39.5