geile fixes

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 03bdd0bbf46ecc550bb68bab64d210609ce4456e..a27d776a9741b3174914e13c5eb23125dea7eae3 100644 (file)
--- 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"