/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
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;
}