X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-socket.scm;h=c8a0fac3c7e872f5c7359951a33ac681956c11be;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=e992e7c74b095605c4729338a10bdc3bb59f42cb;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index e992e7c74b..c8a0fac3c7 100644
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -49,12 +49,12 @@
 	  breapth width depth height blot-diameter
 	  ))
 
-(define (event-cause grob)
+(define (music-cause grob)
   (let*
       ((cause (ly:grob-property  grob 'cause)))
 
     (cond
-     ((ly:stream-event? cause) cause)
+     ((ly:music? cause) cause)
 ;     ((ly:grob? cause) (music-cause cause))
      (else
       #f))))
@@ -83,9 +83,9 @@
 
 (define-public (grob-cause offset grob)
   (let*
-      ((cause (event-cause grob))
-       (tag (if (and cause (integer? (ly:event-property cause 'input-tag)))
-		(ly:event-property cause 'input-tag)
+      ((cause (music-cause grob))
+       (tag (if (and cause (integer? (ly:music-property cause 'input-tag)))
+		(ly:music-property cause 'input-tag)
 		-1))
        (name (cdr (assoc 'name (ly:grob-property grob 'meta))))
        )