Fix compile bug, add linewidth info to \justify.

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

diff --git a/scm/ly-from-scheme.scm b/scm/ly-from-scheme.scm
index 00aab05b282f3cfe450d4394f8867a1b2d9281a8..79267499bd2a5a184af4ca7af4b89f56974a685e 100644 (file)
--- a/scm/ly-from-scheme.scm
+++ b/scm/ly-from-scheme.scm
@@ -83,7 +83,7 @@ character."
          (result
           `(let ((parser-clone (ly:clone-parser parser)))
              ,@(map (lambda (binding)
-                      `(ly:parser-define parser-clone ',(car binding) ,(cdr binding)))
+                      `(ly:parser-define! parser-clone ',(car binding) ,(cdr binding)))
                     (reverse bindings))
              (ly:parse-string-result ,lily-string parser-clone))
          ))