\shapeSlur ne fonctionne plus sous 2.15.27 ?

[Éditions IN NOMINE]

Bonjour à toute la troupe ! (ah ça fait plaisir de vous retrouver !)

Petite frayeur pour mettre à jour une partition : j'utilise fréquemment 
\shapeSlur (http://lsr.dsi.unimi.it/LSR/Item?id=639) mais ayant 
réinstallé tout mon OS et réinstallé la dernière version de Lily (une 
autre 2.15 plus récente), j'ai la surprise d'obtenir ce message, en 
faisant tourner l'exemple du LSR sus mentionné.. visiblement, un pb de 
type de variable (list) mais alors là, je rame pour comprendre... celui 
ou celle qui saura me dire où est le pb, et comment le régler, 
bénéficiera de ma bénédiction éternelle (mieux que 7 générations !) !!! 
Profitez des soldes ! ;o) Merci d'avance en tous les cas.

JMarc

Code du snippet :

% LSR Thanks to Neil Puttock for his help!

shapeSlur =

#(define-music-function (parser location offsets) (list?)

#{

\once \override Slur #'control-points = #(alter-curve $offsets)

#})

#(define ((alter-curve offsets) grob)

(let ((coords (ly:slur::calc-control-points grob)))

(define (add-offsets coords offsets)

(if (null? coords)

'()

(cons

(cons (+ (caar coords) (car offsets))

(+ (cdar coords) (cadr offsets)))

(add-offsets (cdr coords) (cddr offsets)))))

(add-offsets coords offsets)))

\relative c'' {

d4(^"default" d' b g f8 e d e c2)

\bar "||"

\shapeSlur #'(0 -2.5 -1 3.5 0 0 0 -2.5)

d4(^"(0 -2.5 -1 3.5 0 0 0 -2.5)" d' b g f8 e d e c2)

}



Et message d'erreur :

Démarrage lilypond 2.15.27 [Sans titre]...

Traitement de « /tmp/frescobaldi-xp7HG3/tmpGd9egJ/document.ly »

Analyse...

/tmp/frescobaldi-xp7HG3/tmpGd9egJ/document.ly:8:48: Erreur : GUILE a 
signalé une erreur pour l'expression débutant ici

\once \override Slur #'control-points = #

(alter-curve $offsets)

/tmp/frescobaldi-xp7HG3/tmpGd9egJ/document.ly:27:13: Erreur : error in 
#{ ... #}

\shapeSlur

#'(0 -2.5 -1 3.5 0 0 0 -2.5)

Interprétation en cours de la musique...

Avertissement : la vérification du type de « control-points » a échoué ;

la valeur « #<unspecified> » doit être du type « list »

Pré-traitement des éléments graphiques...

Détermination du nombre optimal de pages...

Répartition de la musique sur une page...

Dessin des systèmes...

Sortie mise en page vers « document.ps »...

Converting to `./document.pdf'...

Unbound variable: $offsets

fatal error: erreur sur les fichiers 
"/tmp/frescobaldi-xp7HG3/tmpGd9egJ/document.ly"

Arrêté avec le code de retour 1.