(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 fc9e780ae33d408c14f53a8c3160a059940de41c..5d0b1ffb3fe882a4bf878bfb3d0bf31a22d80006 100644 (file)
--- 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); 
        }