void grace_change (SCM);
};
-Grace_engraver::Grace_engraver ()
+Grace_engraver::Grace_engraver (Context *c)
+ : Engraver (c)
{
grace_settings_ = SCM_EOL;
last_moment_ = Moment (Rational (-1, 1));
if (!scm_is_pair (sym))
sym = scm_list_1 (sym);
- Context *c = context ();
- while (c && !c->is_alias (context_name))
- c = c->get_parent_context ();
-
+ Context *c = find_context_above (context (), context_name);
if (c)
{
SCM cell = Grob_property_info (c, grob).push (sym, val);
Engraver::derived_mark ();
}
+void
+Grace_engraver::boot ()
+{
+
+}
+
ADD_TRANSLATOR (Grace_engraver,
/* doc */
"Set font size and other properties for grace notes.",