Uniformise some error messages, translate all dutch undefined.

[lilypond.git] / scm / to-xml.scm

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index 5f2828a3704089de71308354bbc80c975d98d4a6..b1b2ed79a69cf60729d8ad9fbf13161140389b60 100644 (file)
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -187,7 +187,7 @@ is then separated.
 (define (assert x)
   (if x
       #t
-      (ly:error (_ "assertion failed"))))
+      (ly:error (_ "assertion failed: ~S") x)))
 
 (define (re-sub re to string)
   (regexp-substitute/global #f re string 'pre to 'post))