- (if (equal? (ly:music-name m) 'RequestChord)
- (ly:set-mus-property! m 'elements
- (cons (make-text-script x)
- (ly:get-mus-property m 'elements)))
-
- (let ((es (ly:get-mus-property m 'elements))
- (e (ly:get-mus-property m 'element)) )
+ (if (equal? (ly:music-property m 'name) 'EventChord)
+ (set! (ly:music-property m 'elements)
+ (cons (make-text-script x)
+ (ly:music-property m 'elements)))
+ (let ((es (ly:music-property m 'elements))
+ (e (ly:music-property m 'element)))