X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Foptional-args-predicate.ly;h=49537ce46f8e30a783cf179b88774c0f618d3671;hb=893eca274995ace99dc5ed46b2d0711cd1cb0ab0;hp=c8b4668ca18b2218f6fb71ed016d616ced881d03;hpb=98ac53591234404cd70c5eebd370a598ec74095b;p=lilypond.git

diff --git a/input/regression/optional-args-predicate.ly b/input/regression/optional-args-predicate.ly
index c8b4668ca1..49537ce46f 100644
--- a/input/regression/optional-args-predicate.ly
+++ b/input/regression/optional-args-predicate.ly
@@ -9,7 +9,7 @@
 test=#(define-scheme-function (str int frac exp)
        ((string? "def1") (integer? "def2") (number-pair? "def3") list?)
        (if (not (equal? (list str int frac) exp))
-	(ly:parser-error (*parser*)
+	(ly:parser-error
 	 (format #f "Expected ~a, got ~a.\n" exp
 	  (list str int frac))
 	 (*location*))))