Fix fretboard calculation

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index b6e5d309d8c005d883fa5048f19f08f0b1ce8ed9..aaed7a5f4ca910bb7c5ea9a3be7e6980b6266df4 100644 (file)
--- 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