Issue 4422/1: Remove parser/location global variable setup

[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 dd3e698b9cbddba3271165f5fdddcecf20450630..7322d9bb16a666f1ad0ae17177c72ce4783b9ef1 100644 (file)
--- a/scm/parser-ly-from-scheme.scm
+++ b/scm/parser-ly-from-scheme.scm
@@ -74,8 +74,8 @@ from @var{port} and return the corresponding Scheme music expression.
             (ly:parser-error parser (_ "error in #{ ... #}")))
         result))
     (list embedded-lilypond
-          'parser lily-string filename line
+          (list *parser*) lily-string filename line
           (cons 'list (reverse! closures))
-          'location)))
+          (list *location*))))
 
 (read-hash-extend #\{ read-lily-expression)