X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flily.scm;h=79f88d2af6c7b4043301d764fdf57e2139a729e0;hb=71f73f018876fffc1886e3da59776f3f1c8200f4;hp=9a0b1dfb605034a4a6d53c08796c8eccb63bc5b2;hpb=43b15b9a9a79a9b1b246e9829a27e56137c1d1a8;p=lilypond.git

diff --git a/scm/lily.scm b/scm/lily.scm
index 9a0b1dfb60..79f88d2af6 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -317,7 +317,9 @@ The syntax is the same as `define*-public'."
      files)
     
     (if (pair? failed)
-	(ly:error (_ "failed files: ~S") (string-join failed))
+	(begin
+	  (ly:error (_ "failed files: ~S") (string-join failed))
+	  (exit 1))
 	(begin
 	  ;; HACK: be sure to exit with single newline
 	  (ly:message "")