(define (make-note pitch duration dynamics . args) (let ((timbre (if (null? args) (car args) (note-timbre default-note)))) (primitive-make-note pitch duration dynamics timbre)))