From 3cb0e00e8f40e7799230626769e9ed4697037005 Mon Sep 17 00:00:00 2001
From: tux <tux@goldenerreiter.org>
Date: Sun, 9 Feb 2025 13:06:12 +0100
Subject: [PATCH] updates for newest lilypond versions

---
 standalone_output.ly | 2 +-
 swing_style.ly       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/standalone_output.ly b/standalone_output.ly
index eab2918..6f100ac 100644
--- a/standalone_output.ly
+++ b/standalone_output.ly
@@ -37,7 +37,7 @@ TEXT = \markuplist {
         \context {
           \Score
           % Tempo des midi files
-          tempoWholesPerMinute = #(ly:make-moment midiQuarterNoteSpeed 4)
+          tempoWholesPerMinute = #(/ midiQuarterNoteSpeed 4)
         }
       }
     }#})
diff --git a/swing_style.ly b/swing_style.ly
index 4c45f0c..b406947 100644
--- a/swing_style.ly
+++ b/swing_style.ly
@@ -59,7 +59,7 @@ swingMusic =
         (partial-duration-length (car es))
         (if (ly:music? e)
           (if (and (eq? name 'ContextSpeccedMusic) (eq? (ly:music-property e 'name) 'PartialSet))
-            (ly:duration-length (ly:music-property e 'duration))
+            (ly:duration->moment (ly:music-property e 'duration))
             (if (eq? name 'NoteEvent)
               ZERO-MOMENT
               (partial-duration-length e)