X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=ly%2Finit.ly;h=c3db3b37170810826995247621026c213d36379f;hb=44175140dd5602e82426d70bb24b6b6056066a70;hp=da97ded0e6c662740b7e0d30ffe750b0b29206ae;hpb=49e4c7ee898f09c6fd6ffd73d49f091344d0c7d7;p=lilypond.git

diff --git a/ly/init.ly b/ly/init.ly
index da97ded0e6..c3db3b3717 100644
--- a/ly/init.ly
+++ b/ly/init.ly
@@ -42,5 +42,7 @@
    (apply ly:make-book $defaultpaper $defaultheader toplevel-scores)))
 
 
-#(if expect-error
-  (ly:parser-clear-error parser))
+#(if (eq? expect-error (ly:parser-has-error? parser))
+  (ly:parser-clear-error parser)
+  (if expect-error
+   (ly:parser-error parser (_ "expected error, but none found"))))