From fe37d3cbc1f095a36e65d8ae6f400465e5aab62d Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 1 Aug 2013 17:30:23 +0200 Subject: [PATCH] Let ly:music-message and ly:music-warning accept additional arguments for format --- scm/music-functions.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scm/music-functions.scm b/scm/music-functions.scm index eed6f7cd0a..f4c27bf973 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -879,17 +879,17 @@ actually fully cloned." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; warn for bare chords at start. -(define-public (ly:music-message music msg) +(define-public (ly:music-message music msg . rest) (let ((ip (ly:music-property music 'origin))) (if (ly:input-location? ip) - (ly:input-message ip msg) - (ly:message msg)))) + (apply ly:input-message ip msg rest) + (apply ly:message msg rest)))) -(define-public (ly:music-warning music msg) +(define-public (ly:music-warning music msg . rest) (let ((ip (ly:music-property music 'origin))) (if (ly:input-location? ip) - (ly:input-warning ip msg) - (ly:warning msg)))) + (apply ly:input-warning ip msg rest) + (apply ly:warning msg rest)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; -- 2.39.2