(set! bass (cadr mods))
(set! mods (cddr mods))))
(if (pair? mods)
- (scm-error 'chord-format "construct-chord" "Spurious garbage following chord: ~A" mods #f))
+ (ly:warning (_ "Spurious garbage following chord: ~A") mods))
chord)
(define (interpret-removals chord mods)