X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-column-engraver.cc;h=e25e83510d3b2331813c67097fd389b117188892;hb=f5e923a6ce8cebb7ef893c03ce56aa5e598002c9;hp=97884e26432f9342824efd2185e682e9c2c3423c;hpb=2558bbf111c416f0c7093f7f8a3129533310cf37;p=lilypond.git diff --git a/lily/paper-column-engraver.cc b/lily/paper-column-engraver.cc index 97884e2643..e25e83510d 100644 --- a/lily/paper-column-engraver.cc +++ b/lily/paper-column-engraver.cc @@ -239,7 +239,7 @@ Paper_column_engraver::stop_translation_timestep () if (!elem->get_parent (X_AXIS)) elem->set_parent (col, X_AXIS); - if (!Grob::unsmob (elem->get_object ("axis-group-parent-X"))) + if (!Grob::is_smob (elem->get_object ("axis-group-parent-X"))) elem->set_object ("axis-group-parent-X", col->self_scm ()); if (Accidental_placement::has_interface (elem) @@ -279,7 +279,7 @@ Paper_column_engraver::stop_translation_timestep () SCM mpos = get_property ("measurePosition"); SCM barnum = get_property ("internalBarNumber"); - if (Moment::unsmob (mpos) + if (Moment::is_smob (mpos) && scm_is_integer (barnum)) { SCM where = scm_cons (barnum,