release: 1.3.107

[lilypond.git] / lily / music-iterator-ctor.cc

diff --git a/lily/music-iterator-ctor.cc b/lily/music-iterator-ctor.cc
index 0af9158698c0f90cf3e10c9599d5a4a6e8a06f37..c599c57817583f0c2dcf9006e5dca80f30f68832 100644 (file)
--- a/lily/music-iterator-ctor.cc
+++ b/lily/music-iterator-ctor.cc
@@ -30,8 +30,8 @@ scm_sizet free_smob (SCM)
   return 0;
 }
 
-static
-void start_callback_smobs()
+
+void init_cxx_function_smobs()
 {
   callback_tag = scm_make_smob_type_mfpe ("callback", 0,
                                          mark_smob, free_smob,
@@ -39,7 +39,7 @@ void start_callback_smobs()
 }
 
 SCM
-smobify_callback (Cpp_function cb )
+smobify_cxx_function (Cxx_function cb )
 {
   SCM z;
   
@@ -49,6 +49,16 @@ smobify_callback (Cpp_function cb )
 
   return z;
 }
-  
-ADD_SCM_INIT_FUNC(callback, start_callback_smobs);
+
+
+Cxx_function
+unsmob_cxx_function (SCM x)
+{
+  if (SCM_CELL_TYPE(x) == callback_tag)
+    return (Cxx_function) SCM_CELL_WORD_1(x);
+  else
+    return 0;
+}
+
+