X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fsong.scm;h=171ef6e191d3c4d685124d0e9e2a3ed087e0adf8;hb=5cc4e758f0d8b01600a39faced769883cca6995a;hp=71eb03d72f4b5aa17ed5f5902c98798fdac5f2fb;hpb=252ec5e71b5e121734a9c9897245137cb07e4a1f;p=lilypond.git

diff --git a/scm/song.scm b/scm/song.scm
index 71eb03d72f..171ef6e191 100644
--- a/scm/song.scm
+++ b/scm/song.scm
@@ -134,10 +134,7 @@
 (define *tempo-compression* #f)
 
 (define (duration->number duration)
-  (let* ((log (ly:duration-log duration))
-         (dots (ly:duration-dot-count duration))
-         (factor (ly:duration-factor duration)))
-    (exact->inexact (* (expt 2 (- log)) (+ 1 (/ dots 2)) (/ (car factor) (cdr factor))))))
+  (exact->inexact (ly:moment-main (ly:duration-length duration))))
 
 (define (tempo->beats music)
   (let* ((tempo-spec (find-child-named music 'SequentialMusic))