Index: lily/engraver.cc |
diff --git a/lily/engraver.cc b/lily/engraver.cc |
index 19b538f2b2b4872f3f76cc45bb160b07c16614b5..74f0ea511b7f48608d04e7a25e1eb91f41fd9f51 100644 |
--- a/lily/engraver.cc |
+++ b/lily/engraver.cc |
@@ -55,9 +55,9 @@ Engraver::make_grob_info (Grob *e, SCM cause) |
{ |
cause = m->to_event ()->unprotect (); |
} |
- if (scm_is_null (e->get_property ("cause")) |
+ if (scm_is_null (get_property (e, "cause")) |
&& (unsmob<Stream_event> (cause) || unsmob<Grob> (cause))) |
- e->set_property ("cause", cause); |
+ set_property (e, "cause", cause); |
return Grob_info (this, e); |
} |