]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/new-quote-iterator.cc
* lily/new-quote-iterator.cc (construct_children): set
[lilypond.git] / lily / new-quote-iterator.cc
index e3928cfcef2d1e140e56eefc7b7241985c308ffc..e1bdf20805085a43d6dc482192a794557a28f5b7 100644 (file)
@@ -104,9 +104,17 @@ New_quote_iterator::construct_children ()
   SCM name = get_music ()->get_property ("quoted-context-type");
   SCM id = get_music ()->get_property ("quoted-context-id");
 
-  Context *cue_context = get_outlet()->find_create_context (name,
-                                                           ly_scm2string (id), SCM_EOL);
-  quote_outlet_.set_context (cue_context);
+  if (scm_is_string (id)
+      && scm_is_symbol (name))
+    {
+      Context *cue_context = get_outlet()->find_create_context (name,
+                                                               ly_scm2string (id), SCM_EOL);
+      quote_outlet_.set_context (cue_context);
+    }
+  else
+    {
+      quote_outlet_.set_context (get_outlet ());
+    }
   
   Moment now = get_outlet ()->now_mom ();
   Moment stop = now + get_music()->get_length ();