*** empty log message ***

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 9a0b1dfb605034a4a6d53c08796c8eccb63bc5b2..79f88d2af6c7b4043301d764fdf57e2139a729e0 100644 (file)
--- 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 "")