thinko for alteration order warning

diff --git a/lily/key-engraver.cc b/lily/key-engraver.cc
index b317764fecfb0f29695bf12b4978845dbd34e952..8bd0d1305fc89936907e4246b6a9c3b5878ec4db 100644 (file)
--- a/lily/key-engraver.cc
+++ b/lily/key-engraver.cc
@@ -197,10 +197,16 @@ Key_engraver::read_event (Stream_event const *r)
 
   if (scm_is_pair (alist))
     {
-      r->origin ()->warning ("No ordering for key signature alterations");
+      bool warn = false;
       for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s))
        if (ly_scm2rational (scm_cdar (s)))
-         accs = scm_cons (scm_car (s), accs);
+         {
+           warn = true;
+           accs = scm_cons (scm_car (s), accs);
+         }
+
+      if (warn)
+       r->origin ()->warning ("No ordering for key signature alterations");      
     }
   
   context ()->set_property ("keySignature", accs);