Don't let cloned parsers and lexers inherit error state.

[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 1a51a3714006a04e26fbc67b0dc084388ee6736a..3f19641916c51a87030a13a10bfa6df1afce49a4 100644 (file)
--- a/scm/parser-ly-from-scheme.scm
+++ b/scm/parser-ly-from-scheme.scm
@@ -33,9 +33,7 @@ from @var{port} and return the corresponding Scheme music expression.
                              (display c out)))))))
     `(let* ((clone
             (ly:parser-clone parser (procedure-environment (lambda () '()))))
-           (result (begin
-                     (ly:parser-clear-error clone)
-                     (ly:parse-string-expression clone ,lily-string))))
+           (result (ly:parse-string-expression clone ,lily-string)))
        (if (ly:parser-has-error? clone)
           (ly:parser-error parser (_ "error in #{ ... #}")))
        result)))