X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmidi.scm;fp=scm%2Fmidi.scm;h=cf43d3af7592759e5f5887812a1b6f2667665ce1;hb=def21b306e2b8fa2d5630fab0878e9922e197f0c;hp=863128e905fd6a6ce37634e32a4d2c5d5393247f;hpb=f455506b0a4a32cea2c596a3a6e3f364e7ea5a90;p=lilypond.git

diff --git a/scm/midi.scm b/scm/midi.scm
index 863128e905..cf43d3af75 100644
--- a/scm/midi.scm
+++ b/scm/midi.scm
@@ -285,17 +285,16 @@ returns the program of the instrument
 ;;
 
 (define-public (write-performances-midis performances basename . rest)
+  (let ((midi-ext (ly:get-option 'midi-extension)))
   (let
       loop
     ((perfs performances)
      (count (if (null? rest) 0 (car rest))))
-
-
     (if (pair?  perfs)
 	(begin
 	  (ly:performance-write
 	   (car perfs)
 	   (if (> count 0)
-	       (format #f "~a-~a.midi" basename count)
-	       (format #f "~a.midi" basename)))
+	       (format #f "~a-~a.~a" basename count midi-ext)
+	       (format #f "~a.~a" basename midi-ext)))
 	  (loop (cdr perfs) (1+ count))))))