Slashed beamed grace notes: error of Context type

[Karim Barkati]

Hello,

An exerpt of code that I would need compiles when isolated in a small file but does not compile when inserted in the whole piece, giving the following "expecting Context" error message:

> %lilypond %args "/Users/karimbarkati/Projets/TEP/Partition/LaColereDuSoleil.ly"

Traitement de « /Users/karimbarkati/Projets/TEP/Partition/LaColereDuSoleil.ly »

Analyse...

Interprétation en cours de la musique.../Applications/LilyPond.app/Contents/Resources/share/lilypond/current/scm/music-functions.scm:730:21: In procedure ly:context-property in _expression_ (ly:context-property where (quote graceSettings)):

/Applications/LilyPond.app/Contents/Resources/share/lilypond/current/scm/music-functions.scm:730:21: Wrong type argument in position 1 (expecting Context): ()

Durée totale du traitement : 1 secondes

The code is attached hereafter: do someone have an idea of what's wrong?

Cheers,

- Karim

%LSR contributed by Valentin as per request http://code.google.com/p/lilypond/issues/detail?id=1333

\version "2.12.3"

slashGroup = {

  #(remove-grace-property 'Voice 'Stem 'direction)

  \once \override Stem #'stencil =

  #(lambda (grob)

    (let* ((x-parent (ly:grob-parent grob X))

           (is-rest? (ly:grob? (ly:grob-object x-parent 'rest))))

     (if is-rest?

      empty-stencil

      (let* ((dir (ly:grob-property grob 'direction))

             (stem (ly:stem::print grob))

             (stem-y (ly:grob-extent grob grob Y))

             (stem-length (- (cdr stem-y) (car stem-y))))

       (ly:stencil-add

        stem

        (grob-interpret-markup grob

         (markup #:translate (cons -1 (* dir (1- (/ stem-length 2))))

          #:draw-line (cons 2 (* dir 2))))

      )))))

}

\new Staff \relative c' {

\clef alto

\grace {

\slashGroup < fis!-2 c,_0 >8_-\sfz^\markup{pizz. sempre} [ d8-0_- \> cis8_- e8_- b8_- \! ] }

ais4_-\pp\laissezVibrer

}