hebrew help latest lilypond

[Aaron]

Hi I am trying to finish a book in hebrew using lilypond but the hebrew
template I used doesn't work for me in the current lilypond.

I ran convert-ly on it with no results
\version "2.2.0"               % Thanks, Han-Wen!
      2 
      3 
      4 \header {
      5  title = "\\R{ÃàøéàÃ}"
      6  language = "hebrew,english" % don't forget to uncomment this!
      7 }
      8 
      9 #(set-global-staff-size 26)
     10 
     11 % General purpose mapping function: applies FUNC to every
     12 % text field in MUSIC.
     13 #(define (text-map func music)
     14   (let ((text (ly:music-property music 'text))
     15         (element (ly:music-property music 'element))
     16         (elements (ly:music-property music 'elements)))
     17    (if (not (null? text))
     18     (ly:music-set-property! music 'text (func text)))
     19    (if (not (null? element))
     20     (ly:music-set-property! music 'element (text-map func
element)))
     21    (if (not (null? elements))
     22     (ly:music-set-property! music 'elements
     23       (map (lambda (m) (text-map func m)) elements)))
      24    music))
     25 
     26 
     27 % Does Scheme really not include this function?
     28 #(define (string-reverse str)
     29   (list->string (reverse (string->list str))))
     30 
     31 % Reverse every word (in terms of the above two functions)
     32 #(define (text-reverse lyric)
     33   (text-map string-reverse lyric))
     34 
     35 % Sandwich every word between PRE and POST
     36 #(define (text-augment pre post)
     37   (lambda (lyric)
     38    (text-map (lambda (word) (string-append pre word post))
lyric)))
     39 
     40 
     41 
     42 \score {
     43   \addlyrics
     44     \notes {
     45       \clef "treble"
     46       \key  e \minor
          47       \set Staff.midiInstrument = "oboe"
     48         \time 4/4
     49 
     50 
     51 d'4 e' f' g'
     52 
     53 
     54 
     55 
     56 
     57 
     58 
     59 
     60     }
     61     \context Lyrics \apply #(text-augment "\\R{" "}") \lyrics {
     62 
     63 àðé îòîéå     }
     64           % Here you probably want to use "\\R{" and "}"
instead.
     65 \paper {
     66   papersize = "a4"
     67   indent = 0.0\cm
     68   } \midi { \tempo 4 = 106 }
     69 }
         -----------------------------------

here is the lilypond output:

           arsing...
Backtrace:
In unknown file:
   ?: 0* [#<procedure #f (lyric)> #<Music SequentialMusic>]
In /disks/hda2/bakup/projectnigun/notation/norai/lily/ly/withwords.ly:
  16: 1* [text-map #<procedure #f (word)> #<Music SequentialMusic>]
   2: 2  (let (# # #) (if # #) (if # #) ...)
   2: 3* (ly:get-mus-property music (quote text))

/disks/hda2/bakup/projectnigun/notation/norai/lily/ly/withwords.ly:2:15:
In expression (ly:get-mus-property music (quote text)):
/disks/hda2/bakup/projectnigun/notation/norai/lily/ly/withwords.ly:2:15:
Unbound variable: ly:get-mus-property


lilypond: error: LilyPond failed on input file withwords (exit status 2)
lilypond: warning: Running LilyPond failed. Rerun with --verbose for a
trace.
theone  ly $ 

Thanks
Aaron