From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 6 Jan 2007 13:58:36 +0000 (+0100)
Subject: only print complaint if expect-error was set.
X-Git-Tag: release/2.11.10-1~72
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ecc0ca8816b3b5534aa7db000146cda02a25e6de;p=lilypond.git

only print complaint if expect-error was set.
---

diff --git a/ly/init.ly b/ly/init.ly
index f6c928e301..c3db3b3717 100644
--- a/ly/init.ly
+++ b/ly/init.ly
@@ -44,4 +44,5 @@
 
 #(if (eq? expect-error (ly:parser-has-error? parser))
   (ly:parser-clear-error parser)
-  (ly:parser-error parser (_ "expected error, but none found")))
+  (if expect-error
+   (ly:parser-error parser (_ "expected error, but none found"))))