]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/simultaneous-music-iterator.cc
* lily/translator-def.cc (get_translator_names): new function
[lilypond.git] / lily / simultaneous-music-iterator.cc
index bdeb2a7f43087f6ef245e258e62ccf6dfb1f8eb2..932d8e2f667d69bf100ddef0f018a97db46c7cb3 100644 (file)
@@ -3,14 +3,14 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "translator-group.hh"
 #include "warn.hh"
 #include "simultaneous-music-iterator.hh"
 #include "music-list.hh"
-#include "killing-cons.tcc"
+#include "translator-def.hh"
 
 
 Simultaneous_music_iterator::Simultaneous_music_iterator ()
@@ -76,10 +76,10 @@ Simultaneous_music_iterator::construct_children ()
 
       /* if separate_contexts_b_ is set, create a new context with the
         number number as name */
-      
+
+      SCM name = unsmob_translator_def (report_to ()->definition_)->get_context_name ();
       Translator_group * t = (j && separate_contexts_b_)
-       ? report_to ()->find_create_translator (report_to ()->type_string_,
-                                                   to_string (j))
+       ? report_to ()->find_create_translator (name, to_string (j), SCM_EOL)
        : report_to ();
 
       if (!t)