From 0c40bf010cbbf1abda7ae7d477ac389f70a4da0f Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 26 Nov 2004 13:36:37 +0000
Subject: [PATCH] (create_unique_context): new method. Move creation of unique
 (\new) contexts into interpreting phase. This makes

---
 lily/context.cc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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); 
 	}
 
-- 
2.39.5