context = new Context (key);
context->definition_ = self_scm ();
+ context->definition_mods_ = ops;
SCM trans_names = get_translator_names (ops);
{
Translator *t = get_translator (scm_car (s));
if (!t)
- warning (_f ("can't find: `%s'", s));
+ warning (_f ("can't find: `%s'", ly_symbol2string (scm_car (s)).c_str ()));
else
{
Translator *tr = t->clone ();
else if (dynamic_cast<Performer_group *> (g))
g->simple_trans_list_ = filter_engravers (g->simple_trans_list_);
- g->context_ = context;
context->aliases_ = context_aliases_;
-
+ g->connect_to_context (context);
g->unprotect ();
context->accepts_list_ = get_accepted (ops);