scheme : type d' arguments pour \transpose

[Gilles THIBAULT]

Bonjour tout le monde.
Qui pourrait me dire quel type je doit mettre à la place de (ly:music?) pour 
que la commande "\transpose c $note"  soit acceptée.
Pour le moment, on obtient le message :
"syntax error, unexpected MUSIC_IDENTIFIER, expecting NOTENAME_PITCH or 
TONICNAME_PITCH"

Merci

%%%%%%%%
\version "2.11.34"
A = { c2 e g }

accord = #(define-music-function (parser location note) (ly:music?)
#{
        \transpose c $note \relative { \A \A }
#})

\accord g,

%%%%%%%%%