a single list of context modifications? */
#include "context-def.hh"
+
#include "engraver.hh"
-#include "lily-proto.hh"
#include "output-def.hh"
#include "performer.hh"
#include "score-context.hh"
Context *
-Context_def::instantiate (SCM ops)
+Context_def::instantiate (SCM ops, Object_key const *key)
{
Context *tg = 0;
if (context_name_ == ly_symbol2scm ("Score"))
- tg = new Score_context ();
+ tg = new Score_context (key);
else
- tg = new Context ();
+ tg = new Context (key);
tg->definition_ = self_scm ();
scm_gc_unprotect_object (g->self_scm ());
- tg->accepts_list_ = get_accepted (ops);
-
+ tg->accepts_list_ = get_accepted (ops);
+
return tg;
}
SCM
Context_def::clone_scm () const
{
- Context_def * t = new Context_def (*this);
+ Context_def *t = new Context_def (*this);
SCM x = t->self_scm ();
scm_gc_unprotect_object (x);
return x;
SCM
Context_def::make_scm ()
{
- Context_def* t = new Context_def;
+ Context_def *t = new Context_def;
SCM x = t->self_scm ();
scm_gc_unprotect_object (x);
return x;