- accepts_list_ = scm_list_n (ly_symbol2scm ("Score"),
- SCM_UNDEFINED);
- definition_ = o->find_context_def (ly_symbol2scm ("Global"));
+ final_mom_ = final;
+ definition_ = find_context_def (o, ly_symbol2scm ("Global"));
+
+ Context_def *globaldef = unsmob_context_def (definition_);
+ if (!globaldef)
+ {
+ programming_error ("no `Global' context found");
+ }
+ else
+ globaldef->apply_default_property_operations (this);
+ accepts_list_ = scm_list_1 (ly_symbol2scm ("Score"));