Doc: Add @funindex for \newSpacingSection (3185)

[lilypond.git] / scm / song.scm

diff --git a/scm/song.scm b/scm/song.scm
index 71eb03d72f4b5aa17ed5f5902c98798fdac5f2fb..171ef6e191d3c4d685124d0e9e2a3ed087e0adf8 100644 (file)
--- 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))