[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-user
Subject:    Re: [openLilyLib] oll-core incompatible with Guile 2.2
From:       Valentin Petzel <valentin () petzel ! at>
Date:       2022-01-19 1:06:03
Message-ID: 15652921.oZjNqBFRh5 () siductionbox
[Download RAW message or body]

[Attachment #2 (multipart/mixed)]


I have written a message to the list a year ago regarding this. The problem is 
that OLL has a call in oll-core/internal/control.scm:
(use-syntax (ice-9 syncase))
Which does not work anymore in 2.2, neither is it nescessary anymore, as guile 
2 provides R5RS natively.

My fix to this was to include a check for the guile version, like in the 
appended file.

There are a few other problems in certain OLL modules, which can also be 
mitigated.

Cheers,
Valentin

Am Mittwoch, 19. Jänner 2022, 01:45:04 CET schrieb Jean Abou Samra:
> 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.
> 
> Best,
> Jean
["control.scm" (control.scm)]

;; control syntax
;;
;; Andrew Bernard 2017


(define-module (oll-core internal control))

(if (< (string->number (car (string-split (version) #\.))) 2)
    (use-syntax (ice-9 syncase)))

;; when and unless from R6RS

(define-syntax when
  (syntax-rules ()
    ((when test result1 result2 ...)
     (if test
	 (begin result1 result2 ...)))))


(define-syntax unless
  (syntax-rules ()
    ((unless test result1 result2 ...)
     (if (not test)
	 (begin result1 result2 ...)))))


["signature.asc" (application/pgp-signature)]

[prev in list] [next in list] [prev in thread] [next in thread]