From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 30 Dec 2006 02:08:34 +0000 (+0100)
Subject: nitpicks: remove unused var, better error message for unknown alterations.
X-Git-Tag: release/2.11.6-1~30
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cd5f9e878b1b29ae9ab5c83f74b0924ce205e120;p=lilypond.git

nitpicks: remove unused var, better error message for unknown alterations.
---

diff --git a/lily/accidental-engraver.cc b/lily/accidental-engraver.cc
index 1b9920673f..074d668bab 100644
--- a/lily/accidental-engraver.cc
+++ b/lily/accidental-engraver.cc
@@ -368,8 +368,6 @@ Accidental_engraver::create_accidental (Accidental_entry *entry,
 {
   Stream_event *note = entry->melodic_;
   Grob *support = entry->head_;
-  Pitch *pitch = unsmob_pitch (note->get_property ("pitch"));
-
   bool as_suggestion = to_boolean (entry->origin_->get_property ("suggestAccidentals"));
   Grob *a = 0;
   if (as_suggestion)
diff --git a/lily/accidental.cc b/lily/accidental.cc
index 6b7c85ada7..a54a87efbc 100644
--- a/lily/accidental.cc
+++ b/lily/accidental.cc
@@ -130,12 +130,13 @@ Accidental_interface::print (SCM smob)
   Font_metric *fm = Font_interface::get_default_font (me);
 
   SCM alist = me->get_property ("glyph-name-alist");
-  SCM glyph_name = ly_assoc_get (me->get_property ("alteration"),
-				 alist, SCM_BOOL_F);
+  SCM alt = me->get_property ("alteration");
+  SCM glyph_name = ly_assoc_get (alt, alist, SCM_BOOL_F);
   
   if (!scm_is_string (glyph_name))
     {
-      me->warning ("Could not find glyph-name for alteration");
+      me->warning (_f ("Could not find glyph-name for alteration %s",
+		       ly_scm2rational (alt).to_string ().c_str ()));
       return SCM_EOL;
     }