From: hanwen <hanwen>
Date: Sun, 14 Jul 2002 13:10:44 +0000 (+0000)
Subject: geile fixes
X-Git-Tag: release/1.5.71~153
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ba2b1dd1ca283adb6e2e8a05d82f7c23459ad051;p=lilypond.git

geile fixes
---

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"