(define-public (ly:event-warning event msg . rest)
(let ((ip (ly:event-property event 'origin)))
(if (ly:input-location? ip)
(define-public (ly:event-warning event msg . rest)
(let ((ip (ly:event-property event 'origin)))
(if (ly:input-location? ip)
- (ly:music-error m (_ "Missing duration"))
- (make-music 'NoteEvent
- 'duration (ly:make-duration 2 0 0)
- 'articulations full-arts))))))
+ ;; This is an empty chord. Ugh. We cannot really
+ ;; reduce this in any manner, so we just keep it.
+ m)))))
(defmacro-public make-relative (variables reference music)
"The list of pitch or music variables in @var{variables} is used as
a sequence for creating relativable music from @var{music}.
(defmacro-public make-relative (variables reference music)
"The list of pitch or music variables in @var{variables} is used as
a sequence for creating relativable music from @var{music}.