Une question de Scheme

[Loïc Chahine]

Bonjour à tous,

J’aimerais améliorer une fonction que j’avais écrite et que Nicolas 
Sceaux m’a déjà améliorée (voir ci-dessous). En fait, il me manque juste 
(pour pouvoir essayer) un truc en Scheme. Actuellement, je dis à la 
fonction le nom du fichier de paroles (lyricsFile) en entier, par 
exemple : "paroles.ly".
\aVaud #"Quand on a prononcé" #"QuandOnAPrononce" #"paroles.ly"
J’aimerais trouver le moyen de dire juste "paroles" et que ça complète 
tout seul par ".ly". Comme ça, je pourrais faire un truc avec une 
condition et si la condition est remplie, lui dire de compléter par 
"2.ly" (pour obtenir "paroles2.ly").
Je suis à peu près sûr que quelqu’un sait, alors merci d’avance !
L.C.

aVaud =
#(define-music-function (parser location designation dossier lyricsFile)
(string? string? string?)
(define (pathname file)
(format #f "~a/~a" dossier file))
;; incrémente l'indice de la fable
(set! vaud-number (1+ vaud-number))
;; titre
(add-text parser (make-titre-vaud-markup
vaud-number designation))
(add-music parser
(make-music 'Music
'page-marker #t
'page-break-permission 'forbid))
#{
\new ChoirStaff <<
\new Staff {
\autoBeamOff
\include $(pathname "music.ly")
}
\addlyrics {
%\set stanza = "1."
\include $(pathname lyricsFile)
}
>> #})