Issue 4442/5: Fix the rest of removal of parser/(*parser*) manually

[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 37bc4fcbc695c6896c6f47d82741a56fe6a2b65c..3a73e28c3558edf40c458dff821d82bcdc45c832 100644 (file)
--- a/scm/parser-ly-from-scheme.scm
+++ b/scm/parser-ly-from-scheme.scm
@@ -65,7 +65,7 @@ from @var{port} and return the corresponding Scheme music expression.
                                        (set! closures
                                              (cons `(cons ,p (lambda () ,expr))
                                                    closures)))))))))))
-    (define (embedded-lilypond parser lily-string filename line
+    (define (embedded-lilypond lily-string filename line
                                closures location)
       (let* ((clone (ly:parser-clone closures location))
              (result (ly:parse-string-expression clone lily-string
@@ -74,7 +74,7 @@ from @var{port} and return the corresponding Scheme music expression.
             (ly:parser-error (_ "error in #{ ... #}")))
         result))
     (list embedded-lilypond
-          (list *parser*) lily-string filename line
+          lily-string filename line
           (cons 'list (reverse! closures))
           (list *location*))))