Warnings: Turn some normal messages into warnings

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index bbea5afab996462f9eedb9a6ee3613f65581ce5a..ac735bc4893322d1318ba88fbeb403e3471fc029 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -348,11 +348,10 @@ Print a message at LOCATION if any predicate failed."
     (define (helper pred? arg count)
       (if (not (pred? arg))
           (begin
-            (ly:input-message
+            (ly:input-warning
              location
-             (format
-              #f (_ "wrong type for argument ~a.  Expecting ~a, found ~s")
-              count (type-name pred?) arg))
+             (_ "wrong type for argument ~a.  Expecting ~a, found ~s")
+              count (type-name pred?) arg)
             #f)
           #t))