From 9b0582c77a56ba597448e47b5f495a62671d4f05 Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Thu, 7 Jan 2010 19:39:47 +0000 Subject: [PATCH] Easy heads: only access 'note-names vector if length > pitch-notename. --- scm/output-lib.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.5