]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/lyric-combine-music.cc
release: 1.3.107
[lilypond.git] / lily / lyric-combine-music.cc
index dbbbfab278b71d3a48ee90fc03a2a22bbdedc8ac..f474443bcaf96b7308e3ab6b2d65901e115a3502 100644 (file)
@@ -8,6 +8,7 @@
  */
 
 #include "lyric-combine-music.hh"
+#include "lyric-combine-music-iterator.hh"
 #include "musical-pitch.hh"
 
 Lyric_combine_music::Lyric_combine_music (Music * m, Music * l)
@@ -15,7 +16,8 @@ Lyric_combine_music::Lyric_combine_music (Music * m, Music * l)
   set_mus_property ("music", m->self_scm ());
   set_mus_property ("lyrics", l->self_scm ());  
 
-  set_mus_property ("type", ly_symbol2scm ("lyric-combine-music"));
+  set_mus_property ("type",
+                   Lyric_combine_music_iterator::constructor_cxx_function);
 }