X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmidi.scm;h=b41308b77abda626c346f9df1800f60e233d7d19;hb=969b3b0a27bbdaa721cb6b78a9ce82a9b0300277;hp=807a020a3ba4f14af30a779272e06272b28f329f;hpb=6c08722ad9d26f016832a2d6851d8c9addf62de7;p=lilypond.git

diff --git a/scm/midi.scm b/scm/midi.scm
index 807a020a3b..b41308b77a 100644
--- a/scm/midi.scm
+++ b/scm/midi.scm
@@ -285,4 +285,4 @@ returns the program of the instrument
 
 (define-public (alterations-in-key pitch-list)
   "Count number of sharps minus number of flats"
-  (/ (apply + (map cdr pitch-list))) 2)
+  (/ (apply + (map cdr pitch-list)) 2))