Re: Une question de Scheme

[Loïc Chahine]

Bonsoir à tous,

Autre question, que j’avais pas vu venir. Re-voici ci-dessous le code 
modifié avec un (if …). Le problème, c’est que ça m’oblige à répéter. Là 
encore, je suis sûr que certains verront très bien comment optimiser ! 
En gros, il faudrait pouvoir laisser une expression Lily pas finie, 
mettre le (if …), et la finir après.

Merci d’avance !
L.

aVaud =
#(define-music-function (parser location designation dossier couplets)
     (string? string? number?)
   (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))
   (if (= couplets 2)
   #{
    \new ChoirStaff <<
      \new Staff {
        \autoBeamOff
        \include $(pathname "music.ly")
      }
      \addlyrics {
        %\set stanza = "1."
        \include $(pathname "paroles.ly")
      }
   >> #}
    #{
      \new ChoirStaff <<
      \new Staff {
        \autoBeamOff
        \include $(pathname "music.ly")
      }
      \addlyrics {
        %\set stanza = "1."
        \include $(pathname "paroles.ly")
      }
      \addlyrics {
        \include $(pathname "paroles.ly")
      }
      >>
    #}))