(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / ottava-engraver.cc

diff --git a/lily/ottava-engraver.cc b/lily/ottava-engraver.cc
index 0cd2ece3b327fb68b0c5156532326903fcbed447..0cf14c160aded688b1d0643bf78b7e7909a9b479 100644 (file)
--- a/lily/ottava-engraver.cc
+++ b/lily/ottava-engraver.cc
@@ -49,13 +49,13 @@ Ottava_spanner_engraver::process_music ()
       if (gh_string_p (ott))
        {
          span_  = make_spanner ("OttavaBracket");
-         span_->set_grob_property ("text", ott);
+         span_->set_property ("text", ott);
          announce_grob (span_, SCM_EOL);
 
          SCM c0 (get_property ("centralCPosition"));
          SCM oc0 (get_property ("originalCentralCPosition"));
          if (scm_less_p (oc0, c0) == SCM_BOOL_T)
-           span_->set_grob_property ("direction", gh_int2scm (DOWN));
+           span_->set_property ("direction", gh_int2scm (DOWN));
        }
     }
   last_ottavation_ = ott;