X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fparser-ly-from-scheme.scm;h=00368e881fea665152831be7f4dc7938d1647b11;hb=HEAD;hp=7322d9bb16a666f1ad0ae17177c72ce4783b9ef1;hpb=9a6b086e5af718384faa1395dcb1ea657724e616;p=lilypond.git

diff --git a/scm/parser-ly-from-scheme.scm b/scm/parser-ly-from-scheme.scm
index 7322d9bb16..00368e881f 100644
--- a/scm/parser-ly-from-scheme.scm
+++ b/scm/parser-ly-from-scheme.scm
@@ -65,17 +65,15 @@ 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
-                               closures location)
-      (let* ((clone (ly:parser-clone parser closures location))
+    (define (embedded-lilypond lily-string filename line closures)
+      (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 #{ ... #}") (*location*)))
         result))
     (list embedded-lilypond
-          (list *parser*) lily-string filename line
-          (cons 'list (reverse! closures))
-          (list *location*))))
+          lily-string filename line
+          (cons 'list (reverse! closures)))))
 
 (read-hash-extend #\{ read-lily-expression)