X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpiano-pedal-performer.cc;h=1dbdf10dcd69b21299679a335ec469ddc05cde69;hb=fe2ea684b9dcdd98146d608a43e27acc881ff3cd;hp=84f540f323b01b37b85cec059be1ae3da28be043;hpb=2745cbd907f8216a4cc1fc5f488ae19efdfdbd10;p=lilypond.git

diff --git a/lily/piano-pedal-performer.cc b/lily/piano-pedal-performer.cc
index 84f540f323..1dbdf10dcd 100644
--- a/lily/piano-pedal-performer.cc
+++ b/lily/piano-pedal-performer.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "performer.hh"
@@ -24,7 +24,7 @@ class Piano_pedal_performer : public Performer
   };
 
 public:
-  TRANSLATOR_DECLARATIONS(Piano_pedal_performer);
+  TRANSLATOR_DECLARATIONS (Piano_pedal_performer);
   ~Piano_pedal_performer ();
   
 protected:
@@ -130,10 +130,10 @@ Piano_pedal_performer::try_music (Music* r)
       for (Pedal_info*p = info_alist_; p->name_; p ++)
 	{
 	  String nm = p->name_ + String ("Event");
-	  if (gh_equal_p (r->get_mus_property ("name") ,
-			  scm_makfrom0str (nm.to_str0())))
+	  if (ly_c_equal_p (r->get_property ("name") ,
+			  scm_str2symbol (nm.to_str0())))
 	    {
-	      Direction d = to_dir (r->get_mus_property ("span-direction"));
+	      Direction d = to_dir (r->get_property ("span-direction"));
 	      p->req_l_drul_[d] = r;
 	      return true;
 	    }