Scheme : récupérer des valeurs de propriét é

[Éditions IN NOMINE]

Bonjour.

Je suis en train de me faire un série d'exercices Scheme consistant à écrire en Scheme des fonctions toutes faites de Lily (ce qui fera l'objet de quelques pages web sur mon futur blog, sans doute).

En ce moment, je souhaite écrire une fonction qui augmente de 1 degré une note.
J'ai besoin de récupérer le b de    'pitch
                     (ly:make-pitch a b c))
de façon à l'augmenter de 1 pour le réinjecter dans la note passée en argument.

Ma fonction débute ainsi :

ajouterundegre = #(define-music-function (parser location note)(ly:music?)
         "ajoute 1 au second chiffre du pitch"
         (let ((result-note (ly:music-deep-copy note)))   ;copie locale de la note argument
              ((result-pitch (ly:music-property (first (ly:music-property result-note 'elements))                                 'pitch))) ;copie locale du pitch de result-note

Comment faire pour récupérer le chiffre b du pitch, svp ?
La solution me permettrait d'étendre ce concept à bien d'autres fonctions. J'avoue ne pas avoir vu passer ce truc dans la doc : j'ai dû cligner des yeux au mauvais endroit !

Bonne soirée !

JMarc