Issue 4086/5: Introduce callable Smob infrastructure

[lilypond.git] / lily / include / smobs.tcc

diff --git a/lily/include/smobs.tcc b/lily/include/smobs.tcc
index f7b6fe3e4b0a9a55a1746670092863afa312dc45..f990a08f539abbb94120ac559b9be310374f7a30 100644 (file)
--- a/lily/include/smobs.tcc
+++ b/lily/include/smobs.tcc
@@ -107,6 +107,11 @@ void Smob_base<Super>::init ()
       scm_c_export (Super::type_p_name_, NULL);
     }
   ly_add_type_predicate ((void *) unsmob, smob_name_.c_str ());
+  if (Super::smob_proc != 0)
+    scm_set_smob_apply (smob_tag_,
+                        (scm_t_subr)Super::smob_proc,
+                        Super::smob_proc_signature_ >> 8,
+                        (Super::smob_proc_signature_ >> 4)&0xf,
+                        Super::smob_proc_signature_ & 0xf);
 }
-
 #endif