Issue 4442/2: Run scripts/auxiliar/update-with-convert-ly.sh -f 2.19.21

[lilypond.git] / scm / ly-syntax-constructors.scm

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index eb323b8a00ecede1b03652bdcf2b6fd5bce13978..a645b085da1cd0d8bfe5ba4959ba9b73a62367e5 100644 (file)
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -44,10 +44,10 @@
 (define (music-function-call-error loc fun m)
   (let* ((sig (ly:music-function-signature fun))
          (pred (if (pair? (car sig)) (caar sig) (car sig))))
-    (ly:parser-error (*parser*)
+    (ly:parser-error
                      (format #f (_ "~a function cannot return ~a")
                              (type-name pred)
-                             (value->lily-string m (*parser*)))
+                             (value->lily-string m))
                      loc)
     (and (pair? (car sig)) (cdar sig))))
 
@@ -76,7 +76,6 @@
 
 (define-ly-syntax (argument-error location n pred arg)
   (ly:parser-error
-   (*parser*)
    (format #f
            (_ "wrong type for argument ~a.  Expecting ~a, found ~s")
            n (type-name pred) (music->make-music arg))