X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fmusic-functions-init.ly;h=e1f9cfd25d30798a403090cc1b1b83d627aa983a;hb=a32bd8c257007f81271de85862ea8bde6dd9402e;hp=0ef5b397e1da1257a84d63694b75c8a550b61562;hpb=7432db9d6e83734493eaf348d71afbaf3c7f2e2d;p=lilypond.git

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 0ef5b397e1..e1f9cfd25d 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -261,7 +261,7 @@ breathe =
                             (* (ly:moment-main len) 1/2)))
               (scale (inexact->exact (ceiling (/ (log desired) (log 1/2)))))
               (breath (ly:make-moment (expt 1/2 scale))))
-         (ly:moment-sub len breath)))))
+         (ly:moment-sub (ly:make-moment (ly:moment-main len)) breath)))))
 
 clef =
 #(define-music-function (parser location type) (string?)