X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Foptional-args-predicate.ly;h=49537ce46f8e30a783cf179b88774c0f618d3671;hb=12a06e5c29a2f58081068ac7663f0d6a6d4bdf95;hp=d50230f594a195bbd092424db1a2f942e4da28ab;hpb=26a079ca2393d053315ef8dbef626c897dc9645a;p=lilypond.git

diff --git a/input/regression/optional-args-predicate.ly b/input/regression/optional-args-predicate.ly
index d50230f594..49537ce46f 100644
--- a/input/regression/optional-args-predicate.ly
+++ b/input/regression/optional-args-predicate.ly
@@ -1,4 +1,4 @@
-\version "2.16.0"
+\version "2.19.22"
 
 \header{
   texidoc= "Test predicate-based optional music function argument skipping."
@@ -6,13 +6,13 @@
 
 \layout { ragged-right = ##t }
 
-test=#(define-scheme-function (parser location str int frac exp)
+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)))
+	 (*location*))))
 
 \test "a" #3 #'(3 . 4) #'("a" 3 (3 . 4))
 \test "a" #3 #'("a" 3 "def3")