staff-symbol-referencer: ledger logic; issue 4184

[lilypond.git] / lily / slur.cc

diff --git a/lily/slur.cc b/lily/slur.cc
index 9313437279b6732666c1cc99f301450c79ed0626..d0184b5ebc1169a891be9b79e0e56c166b201798 100644 (file)
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -219,7 +219,7 @@ Slur::replace_breakable_encompass_objects (Grob *me)
     }
 
   SCM encompass_scm = me->get_object ("encompass-objects");
-  if (Grob_array::unsmob (encompass_scm))
+  if (Grob_array::is_smob (encompass_scm))
     {
       vector<Grob *> &arr
         = Grob_array::unsmob (encompass_scm)->array_reference ();