Try the patch below
--- aaron.ly 2004-01-27 09:33:47.000000000 +0100
+++ aaron-ok.ly 2004-01-27 09:32:39.000000000 +0100
@@ -20,7 +20,7 @@
(ly:set-mus-property! music 'element (text-map func element)))
(if (not (null? elements))
(ly:set-mus-property! music 'elements
- (map (lambda (m) (text-map func m) elements))))
+ (map (lambda (m) (text-map func m)) elements)))
music))
% Does Scheme really not include this function?
@@ -34,7 +34,7 @@
% Sandwich every word between PRE and POST
#(define (text-augment pre post)
(lambda (lyric)
- (text-map (lambda (word) (string-append pre word post) lyric))))
+ (text-map (lambda (word) (string-append pre word post)) lyric)))
% I factored out the lyrics, and also tried setting
% the extra-offset property randomly. It works.