+ definition_ = find_context_def (o, ly_symbol2scm ("Global"));
+
+ now_mom_.set_infinite (-1);
+ prev_mom_.set_infinite (-1);
+
+ /* We only need the most basic stuff to bootstrap the context tree */
+ event_source ()->add_listener (GET_LISTENER (create_context_from_event),
+ ly_symbol2scm ("CreateContext"));
+ event_source ()->add_listener (GET_LISTENER (prepare),
+ ly_symbol2scm ("Prepare"));
+ events_below ()->register_as_listener (event_source_);
+
+ Context_def *globaldef = unsmob_context_def (definition_);
+ if (!globaldef)
+ 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"));