*** empty log message ***

[lilypond.git] / lily / piano-pedal-performer.cc

diff --git a/lily/piano-pedal-performer.cc b/lily/piano-pedal-performer.cc
index 675ed9140d1628f509bad4a3a846cd6b61185f9a..59ed0a4469bc130154b227ce972d8278ade908d4 100644 (file)
--- a/lily/piano-pedal-performer.cc
+++ b/lily/piano-pedal-performer.cc
@@ -130,7 +130,7 @@ Piano_pedal_performer::try_music (Music* r)
       for (Pedal_info*p = info_alist_; p->name_; p ++)
        {
          if (scm_equal_p (s->get_mus_property ("span-type"),
-                          ly_str02scm (p->name_)) == SCM_BOOL_T)
+                          scm_makfrom0str (p->name_)) == SCM_BOOL_T)
            {
              p->req_l_drul_[s->get_span_dir ()] = s;
              return true;