2 #(define (duration-check music)
3 "Check all rest durations in MUSIC"
5 (let* ((name (ly-music-name music))
6 (elts (ly-get-mus-property music 'elements))
7 (e (ly-get-mus-property music 'element))
8 (duration (ly-get-mus-property music 'duration)))
10 (if (not (equal? '() duration))
12 (write "duration: " (current-error-port))
13 (write duration (current-error-port))
14 (newline (current-error-port)))
16 (if (equal? name "Rest_req")
18 (write "URG" (current-error-port))
19 (write name (current-error-port))
20 (write music (current-error-port))
21 (newline (current-error-port))
22 ;;(scm-error 'system-error #f "urg" #f #f)))
27 (map duration-check elts))
35 \apply #duration-check