X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fkey-engraver.cc;h=c396d73351e080aa6eb8c78f8142a64312418a36;hb=731d3cb1ef66145c13864a4cfc762e8245d60fab;hp=45300af68628efd9bbcf3c5c4321d2d4a3de07e9;hpb=bb91de5b7f8c4f753452730101c2422946067cc3;p=lilypond.git

diff --git a/lily/key-engraver.cc b/lily/key-engraver.cc
index 45300af686..c396d73351 100644
--- a/lily/key-engraver.cc
+++ b/lily/key-engraver.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "bar-line.hh"
@@ -79,8 +79,9 @@ Key_engraver::create_key (bool is_default)
 	      SCM new_alter_pair = scm_assoc (scm_caar (s), key);
 	      Rational old_alter = robust_scm2rational (scm_cdar (s), 0);
 	      if (new_alter_pair == SCM_BOOL_F
-		  || extranatural
-		  && (ly_scm2rational (scm_cdr (new_alter_pair)) - old_alter)*old_alter < Rational (0))
+		  || (extranatural
+		      && (ly_scm2rational (scm_cdr (new_alter_pair)) - old_alter)*old_alter
+		          < Rational (0)))
 		{
 		  *tail = scm_cons (scm_car (s), *tail);
 		  tail = SCM_CDRLOC (*tail);
@@ -93,13 +94,13 @@ Key_engraver::create_key (bool is_default)
 					 key_event_
 					 ? key_event_->self_scm () : SCM_EOL);
 	      
-	      cancellation_->set_property ("alteration-alist", restore);
+	      cancellation_->set_property ("alteration-alist", scm_reverse (restore));
 	      cancellation_->set_property ("c0-position",
 					   get_property ("middleCPosition"));
 	    }
 	}
 
-      item_->set_property ("alteration-alist", key);
+      item_->set_property ("alteration-alist", scm_reverse (key));
     }
 
   if (!is_default)
@@ -187,7 +188,7 @@ Key_engraver::read_event (Stream_event const *r)
 	r->origin ()->warning ("No ordering for key signature alterations");      
     }
   
-  context ()->set_property ("keySignature", accs);
+  context ()->set_property ("keySignature", scm_reverse (accs));
   context ()->set_property ("tonic",
 			    r->get_property ("tonic"));
 }
@@ -210,6 +211,7 @@ ADD_TRANSLATOR (Key_engraver,
 		"Engrave a key signature.",
 
 		/* create */
+		"KeyCancellation "
 		"KeySignature ",
 		
 		/* read */