Fix indentation.

1 files changed, 4 insertions, 4 deletions

diff --git a/scales/fretboard.scm b/scales/fretboard.scm
index 97bb1f5..123bc35 100644
--- a/scales/fretboard.scm
+++ b/scales/fretboard.scm
@@ -64,10 +64,10 @@ are indicated for as many FRETS as specified."
   (let ((note (fret-note fret)))
     (format #t "-~3,,,'-,a-|"
             (if note
-                 (if (zero? (scale-note-offset note))
-                     (string-upcase (symbol->string (scale-note-note note)))
-                     (scale-note-note note))
-                 "-"))))
+                (if (zero? (scale-note-offset note))
+                    (string-upcase (symbol->string (scale-note-note note)))
+                    (scale-note-note note))
+                "-"))))
 
 (define (print-frets frets)
   (display "|")