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

[lilypond.git] / scm / parser-ly-from-scheme.scm

diff --git a/scm/parser-ly-from-scheme.scm b/scm/parser-ly-from-scheme.scm
index 7322d9bb16a666f1ad0ae17177c72ce4783b9ef1..37bc4fcbc695c6896c6f47d82741a56fe6a2b65c 100644 (file)
--- a/scm/parser-ly-from-scheme.scm
+++ b/scm/parser-ly-from-scheme.scm
@@ -67,11 +67,11 @@ from @var{port} and return the corresponding Scheme music expression.
                                                    closures)))))))))))
     (define (embedded-lilypond parser lily-string filename line
                                closures location)
-      (let* ((clone (ly:parser-clone parser closures location))
+      (let* ((clone (ly:parser-clone closures location))
              (result (ly:parse-string-expression clone lily-string
                                                  filename line)))
         (if (ly:parser-has-error? clone)
-            (ly:parser-error parser (_ "error in #{ ... #}")))
+            (ly:parser-error (_ "error in #{ ... #}")))
         result))
     (list embedded-lilypond
           (list *parser*) lily-string filename line