Issue4141/2: Use Xxx:is_smob instead of Xxx:unsmob when used in boolean contexts

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

diff --git a/lily/include/smobs.tcc b/lily/include/smobs.tcc
index c2616b321692ec431f4c0dea55370872b0ab976f..eaec076de349442b1b4726e07f71c1160e097b76 100644 (file)
--- a/lily/include/smobs.tcc
+++ b/lily/include/smobs.tcc
@@ -121,7 +121,7 @@ void Smob_base<Super>::init ()
                                      fundoc);
       scm_c_export (Super::type_p_name_, NULL);
     }
-  ly_add_type_predicate ((void *) unsmob, smob_name_.c_str ());
+  ly_add_type_predicate ((void *) is_smob, smob_name_.c_str ());
   if (Super::smob_proc != 0)
     scm_set_smob_apply (smob_tag_,
                         (scm_t_subr)Super::smob_proc,