4 texidoc = "The bottom-level contexts in polyphony shorthand are
5 allocated a context id in order of creation, starting with
7 This snippet will fail to compile if either voice has an invalid
8 @code{context-id} string.
13 #(define-music-function (parser location id) (string?)
14 (let ((music (make-music 'ApplyContext
18 (not (string=? (ly:context-id ctx) id))
19 (ly:error "context-id mismatch found: expecting ~s, got ~s"
21 (ly:context-id ctx)))))))