[Fisarmonica] - concatenation de texte en scheme

[Daniel Cartron]

Bonjour,

J'ai écrit ce qui suit pour fabriquer des markup à la volée :

(define corg 
 '(
  ( (1 1) . ( _\markup{ } ) )
  ( (1 2) . ( ^\markup{ } ) )
  ( (1 3) . ( ^\markup{\column {\line{ }\null}} ) )
  ( (2 1) . ( _\markup{\underline } ) )
  ( (2 2) . ( ^\markup{\underline } ) )
  ( (2 3) . ( ^\markup{\column{\line\underline{ }\null}} ) )
))

(define syst corg)
(define (btn-markup btn-ref)
        (list
                (car(assoc-ref syst (list (caar btn-ref) (cadar btn-ref))))
                (caddar btn-ref)
                (cadr(assoc-ref syst (list (caar btn-ref) (cadar btn-ref))))
        )
)

(define btn-ref '((2 3 7)))  ; le "button-pitch" dont je parlais précédemment
s'il est écrit avec des (()) c'est parce que c'est comme ça que ma fonction 
précédente le renvoit

(btn-markup btn-ref)

et je récupère une liste (^\markup{\column{\line\underline{ 7 }\null}})

J'ai mis ça sous forme de liste sinon je n'ai que la dernière ligne de (btn-
markup btn-ref) qui s'affiche. Mais ce que je veux c'est un texte concaténé 
que je vais ensuite accoler à une note.

J'ai essayé string-append mais j'ai des erreurs, string-join idem, je ne vois 
plus.

Par ailleurs au départ j'avais écrit ma liste associative avec des "" et des 
\\ et j'ai constaté que ça ne fait pas d'erreur comme ça, mais une fois 
réintégré dans le reste du code, je me demande...

Si une bonne âme peut me donner son avis, voire me corriger...

Merci.

-- 
Cordialement, Daniel Cartron
«Madame! N'achetez plus de tissu écossais. Écossez vous-même vos tissus! »
Francis Blanche