authoring in 1.8

[Aaron]

Hi all,
I was having problems with files I created in 1.6 of lilypond.
I converted them to 1.8 and most of them work.

I just notated a song and when I run ly2dvi it gives me the same error
mesages as the older files do.

Is there something I must do to author a file in 1.8. I tried adding a
line for version 1.8.0.
But this didn't help.


I even ran the update script but this didn't sseem to help.
Any ideas??
here is the error:
--------------------------------------------------------------
address@hidden web]$ ly2dvi -p kop.ly
ly2dvi (GNU LilyPond) 1.8.0
Running /usr/bin/lilypond...GNU LilyPond 1.8.0
Now processing: `kop.ly'
Parsing...Backtrace:
In unknown file:
   ?: 0* [#<procedure #f (lyric)> #<Music SequentialMusic>]
In /nigunsite/web/kop.ly:
  16: 1* [text-map #<procedure #f (word)> #<Music SequentialMusic>]
   2: 2  (let (# # #) (if # #) (if # #) ...)
   2: 3* (ly-get-mus-property music (quote text))

/nigunsite/web/kop.ly:2:15: In expression (ly-get-mus-property music
(quote text)):
/nigunsite/web/kop.ly:2:15: Unbound variable: ly-get-mus-property


ly2dvi: error: LilyPond failed on input file kop (exit status 2)
ly2dvi: warning: Running LilyPond failed. Rerun with --verbose for a
trace.
address@hidden web]$
----------------------------------------------
here is the file:
-------------------------------------------------

\version "1.8.0"              

\header {
  title =  "\\R{זשעבינער קאפ}"

 language = "hebrew,english" 
}

\include "paper26.ly"

% General purpose mapping function: applies FUNC to every
% text field in MUSIC.
#(define (text-map func music)
  (let ((text (ly-get-mus-property music 'text))
        (element (ly-get-mus-property music 'element))
        (elements (ly-get-mus-property music 'elements)))
   (if (not (null? text))
    (ly-set-mus-property! music 'text (func text)))
   (if (not (null? element))
    (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)))
   music))

% Does Scheme really not include this function?
#(define (string-reverse str)
  (list->string (reverse (string->list str))))

% Reverse every word (in terms of the above two functions)
#(define (text-reverse lyric)
  (text-map string-reverse lyric))

% Sandwich every word between PRE and POST
#(define (text-augment pre post)
  (lambda (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.
lyr = \lyrics {
   % א
    %\property LyricsVoice . LyricText \override #'extra-offset = #'(5 .
0)
    %ta
    %\property LyricsVoice . LyricText \revert #'extra-offset
    %damm
}

\score {
  \addlyrics
    \notes {
      \clef "treble"
      \key  e \minor
      \property Staff.midiInstrument = "oboe" 
      \time 4/4
   


\relative d' {  
 \repeat volta 2 {
 %music before first and second time bars
 
 e8. e16 a4 e8. d16 a4   | 
a8  \grace {b8} a8 g8. fis16 g2   | 
a8. b16 a8. b16 a16  a8. e4 

}  
 \alternative  {

{
%First time  
g8 fis16 a8 g16  g8 fis16 g16 fis8 e 
% FR(5)

}  

 
 {%Second time  
 g8 fis16 a16 a8. e2
 
 }
}


 \repeat volta 2 {
 %music before first and second time bars  
 c8. d16 c8. d16 c16 c8. b8. a16   | 
 a8.  d16 a8. d16 a16 a8. g4   | 
g8. g16 c4 b16 c16 b8 a16 b16 a8  | 
e2. r4 

}
  | 
% FR(10)
 \repeat volta 2 {
 %music before first and second time bars  
 g4.-\segno a32 b a16 g4. a32 b a16   |
g8. a16 g8 a16 g2 |
a8. b16 a8. b16 a8  g16 fis e4
g8. a16 g8. a16 f2   | 
g4 e'4 d4 c4   | 
b d c b  | 
a8 c e c b4 a8. g16   | 
% FR(15)
g8 a d a g4 \times 3/2 {[fis8 e fis]}    | 
e2. r4
}
 \repeat volta 2 
 %music before first and second time bars  
 {
\times 3/2 {[e8 fis g]} a4 g8. fis16 g4 |

\times 3/2 {[e8 fis g]} a8. b16 a2
g8. fis16 g2 |
\times 3/2 {[e8 fis g]} a8. a16 c2
b4 a e2 |
}

 \repeat volta 2 {
 %music before first and second time bars  
 e4 e'8. e16 e2  | 
e4 e'8. e16 e2 |
e8. f16 g8. f16 e8 d c b   | 
c8. d16 e8. d16 d8 c b a  | 
b8. c16 c8. c16 b8 a8 gis f |
gis b a gis f d f |
e2.^" "^#'(bold "D.S. al fine")  r4
 }

    }
    \context Lyrics \apply #(text-augment "\\R{" "}") \lyrics {
        
      }
%           Here you probably want to use "\\R{" and "}" instead.
\paper {
  papersize = "a4"
  indent = 0.0\cm
  } \midi { \tempo 4 = 106 } 
}
-----------------------------------------
Thanks
Aaron