From: fred <fred>
Date: Tue, 26 Mar 2002 23:54:54 +0000 (+0000)
Subject: lilypond-1.3.79
X-Git-Tag: release/1.5.59~1354
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5877177bbe1213944dac7e9f1edaee86aca5a6c6;p=lilypond.git

lilypond-1.3.79
---

diff --git a/lily/chord.cc b/lily/chord.cc
index 6c85816726..ef1c58a66f 100644
--- a/lily/chord.cc
+++ b/lily/chord.cc
@@ -13,6 +13,7 @@
 #include "molecule.hh"
 #include "paper-def.hh"
 #include "lookup.hh"
+#include "lookup.hh"
 
 int
 compare (Chord* left, Chord* right)
@@ -20,17 +21,9 @@ compare (Chord* left, Chord* right)
   assert (left);
   assert (right);
   
-  if (left->inversion_b_ == right->inversion_b_
-      && left->bass_b_ == right->bass_b_
-      && left->pitch_arr_.size () == right->pitch_arr_.size ())
-    {
-      for (int i = 0; i < left->pitch_arr_.size (); i++)
-	if (left->pitch_arr_[i] != right->pitch_arr_[i])
-	  return 1;
-      return 0;
-    }
-  
-  return 1;
+  return !(left->inversion_b_ == right->inversion_b_
+	   && left->bass_b_ == right->bass_b_
+	   && !compare (&left->pitch_arr_, &right->pitch_arr_));
 }
 
 /*
diff --git a/lily/include/musical-pitch.hh b/lily/include/musical-pitch.hh
index 7f2c386b4d..079de76c8f 100644
--- a/lily/include/musical-pitch.hh
+++ b/lily/include/musical-pitch.hh
@@ -53,5 +53,7 @@ struct Musical_pitch : public Input
 #include "compare.hh"
 INSTANTIATE_COMPARE(Musical_pitch, Musical_pitch::compare);
 
+int compare (Array<Musical_pitch>*, Array<Musical_pitch>*);
+
 #endif /* MUSICAL_PITCH_HH */
 
diff --git a/lily/musical-pitch.cc b/lily/musical-pitch.cc
index 0ebd91dfe4..5e82e01c7b 100644
--- a/lily/musical-pitch.cc
+++ b/lily/musical-pitch.cc
@@ -10,6 +10,21 @@
 #include "debug.hh"
 #include "main.hh"
 
+int
+compare (Array<Musical_pitch>* left, Array<Musical_pitch>* right)
+{
+  assert (left);
+  assert (right);
+  
+  if (left->size () == right->size ())
+    {
+      for (int i = 0; i < left->size (); i++)
+	if ((*left)[i] != (*right)[i])
+	  return 1;
+    }
+  return 0;
+}
+
 SCM
 Musical_pitch::to_scm ()const
 {
diff --git a/lily/part-combine-music.cc b/lily/part-combine-music.cc
index 41127ac741..27064244b7 100644
--- a/lily/part-combine-music.cc
+++ b/lily/part-combine-music.cc
@@ -13,8 +13,8 @@
 Part_combine_music::Part_combine_music (String what, Music * f, Music * s)
 {
   what_str_ = what;
-  set_mus_property ("first", f->self_scm ());
-  set_mus_property ("second", s->self_scm ());  
+  set_mus_property ("one", f->self_scm ());
+  set_mus_property ("two", s->self_scm ());  
 }
 
 
@@ -55,11 +55,11 @@ Part_combine_music::compress (Moment m)
 Music*
 Part_combine_music::first_l () const
 {
-  return unsmob_music (get_mus_property ("first"));
+  return unsmob_music (get_mus_property ("one"));
 }
 
 Music*
 Part_combine_music::second_l () const
 {
-  return unsmob_music (get_mus_property ("second"));
+  return unsmob_music (get_mus_property ("two"));
 }