release: 1.3.105

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

diff --git a/lily/part-combine-music.cc b/lily/part-combine-music.cc
index 155f2de24cd102cf7e66ec4cb21671191c3f01c8..1375f8d06fddf8fdc16e949bee6b2557a99ad224 100644 (file)
--- a/lily/part-combine-music.cc
+++ b/lily/part-combine-music.cc
@@ -10,9 +10,10 @@
 #include "part-combine-music.hh"
 #include "musical-pitch.hh"
 
-Part_combine_music::Part_combine_music (String what, Music * f, Music * s)
+Part_combine_music::Part_combine_music (SCM  what, Music * f, Music * s)
 {
-  what_str_ = what;
+  assert (gh_string_p (what));
+  set_mus_property ("what", what);
   set_mus_property ("one", f->self_scm ());
   set_mus_property ("two", s->self_scm ());