programming_error ("no `Global' context found");
else
globaldef->apply_default_property_operations (this);
+
+ SCM p = get_property ("EventClasses");
+
+ ancestor_lookup_ = scm_make_hash_table (scm_length (p));
+ for (; scm_is_pair (p); p = scm_cdr (p))
+ scm_hashq_set_x (ancestor_lookup_, scm_caar (p), scm_car (p));
+
accepts_list_ = scm_list_1 (ly_symbol2scm ("Score"));
}
if (w == prev_mom_)
{
- programming_error ("Moment is not increasing. Aborting interpretation.");
+ programming_error ("Moment is not increasing."
+ " Aborting interpretation.");
break;
}