I don't understand this error

[Cameron Horsburgh]

Hi folks,

I've just come across this snippet in the LSR:


%%%%%
\version "2.10.10"

\header { texidoc = "
<p>Objects, like text, can be moved around by using some Scheme code.

" }

#(define (make-text-checker text)
   (lambda (grob) (equal? text (ly:grob-property grob 'text))))
   
\score {
  \relative c''' {
     \override Stem  #'direction = #1
     \applyOutput #(outputproperty-compatibility (make-text-checker 
(make-simple-markup "m.d."))
      'extra-offset '(-3.5 . -4.5))
     a^2^"m.d."
  }
}

%%%%%

It fails with the error:

%%%%%
Parsing...
/home/cameron/Work_Folder/sources/lsr/lsr-snippets-2007-02-26/none/moving-around-text.ly:15:36:
error: syntax error, unexpected NOTENAME_PITCH
      'extra-offset '(-3.5 . -4.5)) 
                                          a^2^"m.d."

/home/cameron/Work_Folder/sources/lsr/lsr-snippets-2007-02-26/none/moving-around-text.ly:12:2:
error: errors found, ignoring music expression
  
    \relative c''' {
    error: failed files:
"/home/cameron/Work_Folder/sources/lsr/lsr-snippets-2007-02-26/none/moving-around-text.ly"

Compilation exited abnormally with code 1 at Mon Feb 26 21:53:11

%%%%%

I have no idea about the Scheme stuff or \applyoutput so I can't even
begin to fix it. Does any one have any idea how to get this working
again (or if it needs to be deleted from the LSR?)

-- 

=============================================
Cameron Horsburgh

=============================================