diff options
| -rw-r--r-- | scales/fretboard.scm | 8 |
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 "|") |