Issue 4457: Let error message for #{ ... #} use better source location

diff --git a/scm/parser-ly-from-scheme.scm b/scm/parser-ly-from-scheme.scm
index e0ee2961cd939dc4f8a0a797d4b66783d50c92f2..00368e881fea665152831be7f4dc7938d1647b11 100644 (file)
--- a/scm/parser-ly-from-scheme.scm
+++ b/scm/parser-ly-from-scheme.scm
@@ -70,7 +70,7 @@ from @var{port} and return the corresponding Scheme music expression.
              (result (ly:parse-string-expression clone lily-string
                                                  filename line)))
         (if (ly:parser-has-error? clone)
-            (ly:parser-error (_ "error in #{ ... #}")))
+            (ly:parser-error (_ "error in #{ ... #}") (*location*)))
         result))
     (list embedded-lilypond
           lily-string filename line