Le 19/01/2022 à 01:45, Jean Abou Samra a écrit :
Le 18/01/2022 à 20:43, Simon Albrecht a écrit :
Dear list,
I have started using the experimental 2.23.5 build with Guile 2.2 [1]
and it turns out to be incompatible with the core of openLilyLib.
Here are the error messages I got—it may be that only the first is
relevant:
[...]
Take a look at the attached patch (apply with 'git am').
For me, it makes the file
edition-engraver/usage-examples/example-1.ly work. Note,
however, that ...
I would have to delve in order to find the root of the error and
solve the problem, which I don’t really have time for, unless I must…
... this applies to me as well, so I haven't tested
anything else and don't intend to delve deeper than
this for now.
I forgot something: if you are using 2.23.4 or
higher (as with these experimental binaries), you
also need the attached in the edition-engraver.
Jean
From 12d3e43590cc091ecb1a4f5b8b9d06de5c28121f Mon Sep 17 00:00:00 2001
From: Jean Abou Samra <j...@abou-samra.fr>
Date: Wed, 19 Jan 2022 01:45:50 +0100
Subject: [PATCH] Replace ly:context-now with ly:context-current-moment
ly:context-now was doing exactly the same as ly:context-current-moment
and this duplication was removed in LilyPond 2.23.
---
engine.scm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/engine.scm b/engine.scm
index aee8adc..52552eb 100644
--- a/engine.scm
+++ b/engine.scm
@@ -756,7 +756,7 @@ Path: ~a" path)))))
(define (start-translation-timestep trans)
(log-slot "start-translation-timestep")
(if (or (not start-translation-timestep-moment)
- (ly:moment<? start-translation-timestep-moment (ly:context-now context)))
+ (ly:moment<? start-translation-timestep-moment (ly:context-current-moment context)))
(for-each
(lambda (mod)
(let ((mod-name (if (ly:music? mod) (ly:music-property mod 'name))))
@@ -880,7 +880,7 @@ Path: ~a" path)))))
(log-slot "initialize")
; if the now-moment is greater than 0, this is an instantly created context,
; so we need to call start-translation-timestep here.
- (let ((now (ly:context-now context))
+ (let ((now (ly:context-current-moment context))
(partial (ly:context-property context 'measurePosition)))
(if (or
; start-translation-timestep is not called for instant Voices
@@ -984,4 +984,3 @@ Path: ~a" path)))))
) ; /make-engraver
))
-
--
2.32.0
