scm_gc_unprotect_object (ts);
Context_def *td = unsmob_context_def (t->definition_);
- /*
- this can not move before add_context (), because \override
- operations require that we are in the hierarchy.
- */
+ /* This cannot move before add_context (), because \override
+ operations require that we are in the hierarchy. */
td->apply_default_property_operations (t);
recurse_over_translators (t, &Translator::initialize, DOWN);
scm_gc_unprotect_object (key_->self_scm ());
}
-/*
- TODO: this shares code with find_create_context().
-*/
+/* TODO: this shares code with find_create_context (). */
Context *
Context::create_unique_context (SCM n, SCM operations)
{
ret = daddy_context_->create_unique_context (n, operations);
else
{
- warning (_f ("Cannot find or create new `%s'",
+ warning (_f ("can't find or create new `%s'",
ly_symbol2string (n).to_str0 ()));
ret = 0;
}
ret = daddy_context_->find_create_context (n, id, operations);
else
{
- warning (_f ("Cannot find or create `%s' called `%s'",
+ warning (_f ("can't find or create `%s' called `%s'",
ly_symbol2string (n).to_str0 (), id));
ret = 0;
}
{
String type = ly_symbol2string (cdef->get_context_name ());
Object_key const *key = get_context_key (type, id);
- Context *new_group
+ Context *new_context
= cdef->instantiate (ops, key);
- new_group->id_string_ = id;
- add_context (new_group);
- apply_property_operations (new_group, ops);
+ new_context->id_string_ = id;
+ add_context (new_context);
+ apply_property_operations (new_context, ops);
- return new_group;
+ return new_context;
}
Object_key const *
Context::default_child_context_name () const
{
return scm_is_pair (accepts_list_)
- ? scm_car (scm_last_pair (accepts_list_))
+ ? scm_car (accepts_list_)
: SCM_EOL;
}
if (daddy_context_)
return daddy_context_->get_global_context ();
- programming_error ("No Global context!");
+ programming_error ("no Global context");
return 0;
}