- (if (make-id name "Music")
- #{
- <<
- \make-one-voice-staff #name #clef "Up"
- #(make-simultaneous-music
- (reverse (map
- (lambda (lyrics-postfix)
- #{ \make-one-stanza "Below" #name #name #lyrics-postfix #} )
- lyrics-postfixes)))
- >>
- #}
- (make-music 'SequentialMusic 'void #t)))
+ (if (make-id name "Music")
+ (make-simultaneous-music
+ (list
+ (make-one-voice-staff name clef "Up")
+ (make-simultaneous-music
+ (reverse (map
+ (lambda (lyrics-postfix)
+ (make-one-stanza "Below" name name lyrics-postfix))
+ lyrics-postfixes)))))
+ (make-music 'SequentialMusic 'void #t)))