From: Carl Sorensen <c_sorensen@byu.edu>
Date: Tue, 24 Nov 2009 10:34:50 +0000 (-0700)
Subject: Fix fretboard calculation
X-Git-Tag: release/2.13.9-1~84
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5098e48d3b5f2a9a4e009810c279336913ecc98c;p=lilypond.git

Fix fretboard calculation
---

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index b6e5d309d8..aaed7a5f4c 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -244,16 +244,16 @@
     (set! (ly:grob-property grob 'dot-placement-list)
           (if (not (null? predefined-fretboard))
               predefined-fretboard
-              (let ((minimum-fret
-                     (ensure-number
-                      (ly:context-property context 'minimumFret)
-                      0))
-                    (max-stretch
-                     (ensure-number
-                      (ly:context-property context 'maximumFretStretch)
-                      4))
-                    (string-frets
-                     (determine-frets-mf
+              (let* ((minimum-fret
+                      (ensure-number
+                       (ly:context-property context 'minimumFret)
+                       0))
+                     (max-stretch
+                      (ensure-number
+                       (ly:context-property context 'maximumFretStretch)
+                       4))
+                     (string-frets
+                      (determine-frets-mf
                        notes
                        string-numbers
                        minimum-fret