X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbackend-library.scm;h=ce407e53f6645ae5847939bb3e71b0c5b01d31f3;hb=0347dc0ae52d7c7c81c96ea8828b01e7601a1408;hp=010bff09dc4e42763d2d74dadecebc47c236b26d;hpb=62598872c550e817d0335aa6c8677a7241857cf3;p=lilypond.git

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 010bff09dc..ce407e53f6 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -22,7 +22,10 @@
     (if (> status 0)
 	(begin
 	  (format (current-error-port) (_ "`~a' failed (~a)") command status)
-	  (newline (current-error-port))))))
+	  (newline (current-error-port))
+	  
+	  ;; hmmm.  what's the best failure option? 
+	  (throw 'ly-file-failed))))
 
 (define-public (sanitize-command-option str)
   (string-append