patch::: 1.3.143.jcn1

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

diff --git a/lily/piano-pedal-engraver.cc b/lily/piano-pedal-engraver.cc
index 09f5d1e09355f99075d1bb4f8eec4f0b2d4e5ea9..7f25a21dd30c51874851d33cca1740a75ae6341c 100644 (file)
--- a/lily/piano-pedal-engraver.cc
+++ b/lily/piano-pedal-engraver.cc
@@ -57,7 +57,7 @@ Piano_pedal_engraver::initialize ()
   Pedal_info *p = info_list_;
 
 
-  char * names [] = { "Sostenuto", "Sustain", "UnaChorda", 0  };
+  char * names [] = { "Sostenuto", "Sustain", "UnaCorda", 0  };
   char **np = names ;
   do
     {
@@ -155,14 +155,14 @@ Piano_pedal_engraver::create_grobs ()
            }
          else
            {
-             s = gh_car (strings);
+             s = gh_caddr (strings);
            }
          p->start_req_l_ = 0;
        }
       else if (p->req_l_drul_[START])
        {
          p->start_req_l_ = p->req_l_drul_[START];
-         s = gh_caddr (strings);
+         s = gh_car (strings);
        }
 
       if (gh_string_p (s))