X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Fmusic-list.cc;h=81eee92a0276b79eee87dd7861844fb6a9c9c130;hb=f2f5eb23db6c2daf882957dcfe472657c8bdb1b6;hp=4df9c53da4b360a252f51cd826c8bf48cdfb860c;hpb=dcb8f596283022b8fdc4385c5f9f72d48c6b46fa;p=lilypond.git

diff --git a/lily/music-list.cc b/lily/music-list.cc
index 4df9c53da4..81eee92a02 100644
--- a/lily/music-list.cc
+++ b/lily/music-list.cc
@@ -24,12 +24,13 @@ Simultaneous_music::length_mom () const
 Simultaneous_music::Simultaneous_music(SCM head)
   : Music_sequence (head)
 {
-
+  set_mus_property ("type", ly_symbol2scm ("simultaneous-music"));
 }
 
 Sequential_music::Sequential_music(SCM head)
   : Music_sequence (head)
 {
+  set_mus_property ("type", ly_symbol2scm ("sequential-music"));
 }
 
 
@@ -48,14 +49,15 @@ Simultaneous_music::to_relative_octave (Musical_pitch p)
 Request_chord::Request_chord(SCM s)
   : Simultaneous_music (s)
 {
+  set_mus_property ("type", ly_symbol2scm ("request-chord"));
 }
 
 Musical_pitch
 Request_chord::to_relative_octave (Musical_pitch last)
 {
-   for (SCM s = music_list (); gh_pair_p (s);  s = gh_cdr (s))
-     {
-       Music * mus = unsmob_music (gh_car (s));
+  for (SCM s = music_list (); gh_pair_p (s);  s = gh_cdr (s))
+    {
+      Music * mus = unsmob_music (gh_car (s));
       if (Melodic_req *m= dynamic_cast <Melodic_req *> (mus))
 	{
 	  Musical_pitch &pit = m->pitch_;