From: Marc Hohl <marc@hohlart.de>
Date: Wed, 22 Dec 2010 08:21:26 +0000 (+0100)
Subject: tablature: print a warning when negative fret numbers occur
X-Git-Tag: release/2.13.44-1~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2eb9e6926d25c9ec7b85cee83bbebf3231a55ebf;p=lilypond.git

tablature: print a warning when negative fret numbers occur

This handles issue 1035, but instead of aborting, it just raises a warning.
This seems more appropriate, because all other possible problems within
determine-frets-and-strings are handled by warnings, too.
---

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index c6eefac9f5..b559a77137 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -407,6 +407,9 @@ chords.  Returns a placement-list."
     (let ((this-fret (calc-fret (ly:event-property note 'pitch)
                                 string
                                 tuning)))
+       (if (< this-fret 0)
+           (ly:warning (_ "Negative fret for pitch ~a on string ~a")
+                                       (note-pitch note) string))
        (set! string-fret-fingering-tuples
              (cons (list string
                          this-fret