Issue 1388: Initial work to support opentype font features.

[lilypond.git] / input / regression / optional-args-predicate.ly

diff --git a/input/regression/optional-args-predicate.ly b/input/regression/optional-args-predicate.ly
index c8b4668ca18b2218f6fb71ed016d616ced881d03..49537ce46f8e30a783cf179b88774c0f618d3671 100644 (file)
--- 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*))))