From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 26 Nov 2004 13:36:37 +0000 (+0000)
Subject: (create_unique_context): new method. Move
X-Git-Tag: release/2.5.14~489
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0c40bf010cbbf1abda7ae7d477ac389f70a4da0f;p=lilypond.git

(create_unique_context): new method. Move
creation of unique (\new) contexts into interpreting phase. This
makes
---

diff --git a/lily/context.cc b/lily/context.cc
index fc9e780ae3..5d0b1ffb3f 100644
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -103,6 +103,9 @@ Context::Context (Object_key const* key)
   scm_gc_unprotect_object (key_->self_scm ());
 }
 
+/*
+  TODO:  this shares code with find_create_context().
+ */
 Context*
 Context::create_unique_context (SCM n, SCM operations)
 {
@@ -129,7 +132,7 @@ Context::create_unique_context (SCM n, SCM operations)
 	  SCM ops = (i == path.size () -1) ? operations : SCM_EOL;
 
 	  current = current->create_context (path[i],
-					     "",
+					     "\\new",
 					     ops); 
 	}