(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / pitch-squash-engraver.cc

diff --git a/lily/pitch-squash-engraver.cc b/lily/pitch-squash-engraver.cc
index 197b589fa4a665cddb284170c1750a12d14315c3..e3641fa121beb616a194e71c6d8f32f191b3481d 100644 (file)
--- a/lily/pitch-squash-engraver.cc
+++ b/lily/pitch-squash-engraver.cc
@@ -25,7 +25,7 @@ Pitch_squash_engraver::acknowledge_grob (Grob_info i)
   if (gh_number_p (newpos)
       && Note_head::has_interface (i.grob_))
     {
-      i.grob_->set_grob_property ("staff-position", newpos);
+      i.grob_->set_property ("staff-position", newpos);
     }
 }