- (if (eq? (ly:music-property music 'name) 'ContextSpeccedMusic)
- (begin
- (set! (ly:music-property music 'element)
- (make-music 'ContextSpeccedMusic
- 'element (ly:music-property music 'element)
- 'context-type 'Voice
- 'context-id voice-name
- 'origin (ly:music-property music 'origin)))
- music)
- (make-music 'ContextSpeccedMusic
- 'element music
- 'context-type 'Voice
- 'context-id voice-name
- 'origin (ly:music-property music 'origin)))))
+ (make-music 'ContextSpeccedMusic
+ 'element music
+ 'context-type 'Voice
+ 'context-id voice-name
+ 'origin (ly:music-property music 'origin))))
+ (voice-type (ly:music-property voice 'context-type))