From: fred <fred>
Date: Tue, 26 Mar 2002 23:25:18 +0000 (+0000)
Subject: lilypond-1.3.75
X-Git-Tag: release/1.5.59~1449
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ad7452d1d31dec8b712912c1c8cee0b556a9027e;p=lilypond.git

lilypond-1.3.75
---

diff --git a/lily/my-lily-parser.cc b/lily/my-lily-parser.cc
index f77e59a4df..b7bd385961 100644
--- a/lily/my-lily-parser.cc
+++ b/lily/my-lily-parser.cc
@@ -118,8 +118,8 @@ My_lily_parser::get_chord (Musical_pitch tonic,
 
   Tonic_req* t = new Tonic_req;
   t->pitch_ = tonic;
+  SCM l = gh_cons (t->self_scm (), SCM_EOL);
 
-  SCM l = SCM_EOL;
   //urg
   if (chord.inversion_b_
       && Chord::find_notename_i (&chord.pitch_arr_, chord.inversion_pitch_) > 0)
@@ -137,7 +137,7 @@ My_lily_parser::get_chord (Musical_pitch tonic,
     }
 
   Array<Musical_pitch> pitch_arr = chord.to_pitch_arr ();
-  for (int i = 0; i < pitch_arr.size (); i++)
+  for (int i = pitch_arr.size (); --i >= 0;)
     {
       Musical_pitch p = pitch_arr[i];
       Note_req* n = new Note_req;