* scm/define-music-types.scm (music-descriptions): use

[lilypond.git] / scm / stencil.scm

diff --git a/scm/stencil.scm b/scm/stencil.scm
index e4befe50d3de28076c0f9333d381a0a29051da92..cf810d6bd39179ba3e343e837852f4133539c4ac 100644 (file)
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -310,13 +310,13 @@ grestore
              rest))
        expr))
   
-  (define (music-cause grob)
+  (define (event-cause grob)
     (let*
        ((cause (ly:grob-property  grob 'cause)))
       
       (cond
-       ((ly:music? cause) cause)
-       ((ly:grob? cause) (music-cause cause))
+       ((ly:stream-event? cause) cause)
+       ((ly:grob? cause) (event-cause cause))
        (else #f))))
 
   (define (pythonic-string expr)
@@ -341,8 +341,8 @@ grestore
        ((grob (car expr))
         (rest (cdr expr))
         (collected '())
-        (cause (music-cause grob))
-        (input (if (ly:music? cause) (ly:music-property cause 'origin) #f))
+        (cause (event-cause grob))
+        (input (if (ly:stream-event? cause) (ly:event-property cause 'origin) #f))
         (location (if (ly:input-location? input) (ly:input-file-line-char-column input) '()))
 
         (x-ext (ly:grob-extent grob system-grob X))