release: 1.3.69

[lilypond.git] / lily / score-element-callback.cc

diff --git a/lily/score-element-callback.cc b/lily/score-element-callback.cc
index 9e81fe5aa06f9b57aefc50ce812b559abc8416c7..00cd9f7a3806e370676ceccf3b573ac6b9859ae0 100644 (file)
--- a/lily/score-element-callback.cc
+++ b/lily/score-element-callback.cc
@@ -1,3 +1,4 @@
+#if 0
 /*   
   score-element-callback.cc --  implement Callback smob.
   
@@ -9,8 +10,7 @@
 
 #include "score-element-callback.hh"
 
-
-static long callback_tag;
+static SCM callback_tag;
 
 static
 SCM mark_smob (SCM)
@@ -31,15 +31,12 @@ scm_sizet free_smob (SCM)
   return 0;
 }
 
-static scm_smobfuns callback_funs = {
-  mark_smob, free_smob,
-  print_smob, 0,
-};
-
 static
 void start_callback_smobs()
 {
-  callback_tag = scm_newsmob (&callback_funs);
+  callback_tag = scm_make_smob_type_mfpe ("callback", 0,
+                                         mark_smob, free_smob,
+                                         print_smob, 0);
 }
 
 
@@ -49,10 +46,11 @@ smobify_callback (Score_element_callback cb )
   SCM z;
   
   SCM_NEWCELL(z);
-  SCM_SETCDR(z, cb);
-  SCM_SETCAR(z, callback_tag);
+  SCM_SETCDR (z, (SCM)cb);
+  SCM_SETCAR (z, (SCM)callback_tag);
 
   return z;
 }
   
 ADD_SCM_INIT_FUNC(callback, start_callback_smobs);
+#endif