]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/to-xml.scm
*** empty log message ***
[lilypond.git] / scm / to-xml.scm
index 40a5c11a0b589cbd547ad2a25bdb65d63d3363a6..4db94a185250a7ba53e025f79cc2d07fde3275ef 100644 (file)
@@ -187,7 +187,7 @@ is then separated.
 (define (assert x)
   (if x
       #t
-      (error "assertion failed")))
+      (ly:error (_ "assertion failed"))))
 
 (define (re-sub re to string)
   (regexp-substitute/global #f re string 'pre to 'post))