release: 1.3.105

[lilypond.git] / lily / grace-engraver-group.cc

diff --git a/lily/grace-engraver-group.cc b/lily/grace-engraver-group.cc
index ae3a2f5a3e1b1992a96f69d27166cd25853ec4b8..db566fe4bbfa70b0315eb7a493f6f52496f5060c 100644 (file)
--- a/lily/grace-engraver-group.cc
+++ b/lily/grace-engraver-group.cc
@@ -109,7 +109,8 @@ Grace_engraver_group::pass_to_top_b (Music *m) const
 {
   if (Span_req * sp = dynamic_cast<Span_req*> (m))
     {
-      if (sp->span_type_str_ == "slur")
+      if (scm_equal_p (sp->get_mus_property ("span-type"), ly_str02scm ("slur"))
+         == SCM_BOOL_T)
        //      return true;
        return false;
     }