release: 1.3.107

[lilypond.git] / lily / part-combine-music.cc

diff --git a/lily/part-combine-music.cc b/lily/part-combine-music.cc
index 1375f8d06fddf8fdc16e949bee6b2557a99ad224..91c351fc02fa07023c178592b894aa62c6fcc619 100644 (file)
--- a/lily/part-combine-music.cc
+++ b/lily/part-combine-music.cc
@@ -8,6 +8,7 @@
  */
 
 #include "part-combine-music.hh"
+#include "part-combine-music-iterator.hh"
 #include "musical-pitch.hh"
 
 Part_combine_music::Part_combine_music (SCM  what, Music * f, Music * s)
@@ -20,7 +21,8 @@ Part_combine_music::Part_combine_music (SCM  what, Music * f, Music * s)
   scm_unprotect_object (f->self_scm());
   scm_unprotect_object (s->self_scm());  
 
-  set_mus_property ("type", ly_symbol2scm ("part-combined-music"));
+  set_mus_property ("type",
+                   Part_combine_music_iterator::constructor_cxx_function);
 }
 
 void