From 5098e48d3b5f2a9a4e009810c279336913ecc98c Mon Sep 17 00:00:00 2001
From: Carl Sorensen <c_sorensen@byu.edu>
Date: Tue, 24 Nov 2009 03:34:50 -0700
Subject: [PATCH] Fix fretboard calculation

---
 scm/translation-functions.scm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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
-- 
2.39.5