From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 7 Jan 2010 19:39:47 +0000 (+0000)
Subject: Easy heads: only access 'note-names vector if length > pitch-notename.
X-Git-Tag: release/2.13.11-1~80
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9b0582c77a56ba597448e47b5f495a62671d4f05;p=lilypond.git

Easy heads: only access 'note-names vector if length > pitch-notename.
---

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 8c34f01371..a7ba96b589 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -140,7 +140,8 @@ and duration-log @var{log}."
 	 (pitch (ly:event-property (event-cause grob) 'pitch))
 	 (pitch-index (ly:pitch-notename pitch))
 	 (note-names (ly:grob-property grob 'note-names))
-	 (pitch-string (if (vector? note-names)
+	 (pitch-string (if (and (vector? note-names)
+				(> (vector-length note-names) pitch-index))
 			   (vector-ref note-names pitch-index)
 			   (string
 			    (integer->char