From ad7452d1d31dec8b712912c1c8cee0b556a9027e Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 23:25:18 +0000
Subject: [PATCH] lilypond-1.3.75

---
 lily/my-lily-parser.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.39.5