(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / engraver.cc

diff --git a/lily/engraver.cc b/lily/engraver.cc
index 87cb246d6f201f4564354e0612ebbe6ebbbf819e..40d637ec04c6c212f70aead4fa2fdff6624e4c1c 100644 (file)
--- a/lily/engraver.cc
+++ b/lily/engraver.cc
@@ -42,7 +42,7 @@ Engraver::announce_grob (Grob* e, SCM cause)
     `causes' generically.
   */
   if (unsmob_music (cause) || unsmob_grob (cause))
-    e->set_grob_property ("cause", cause);
+    e->set_property ("cause", cause);
 
   Grob_info i;
   i.grob_ = e;