05/05: build: emacs-utils: Fail when byte compilation fails.

[Arun Isaac]

arunisaac pushed a commit to branch master
in repository guix.

commit c1b4ad2e6e5bf9202be5fc5ed243a3b048287e8c
Author: Maxim Cournoyer <address@hidden>
Date:   Sun Apr 15 22:48:53 2018 -0400

    build: emacs-utils: Fail when byte compilation fails.
    
    Byte compilation failures were ignored prior to this change.
    
    * guix/build/emacs-utils.scm (emacs-byte-compile-directory): Fail when there
    are compilation errors.
    
    Signed-off-by: Arun Isaac <address@hidden>
---
 guix/build/emacs-utils.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/build/emacs-utils.scm b/guix/build/emacs-utils.scm
index 2bd4e39..a98e7a6 100644
--- a/guix/build/emacs-utils.scm
+++ b/guix/build/emacs-utils.scm
@@ -60,7 +60,9 @@
 
 (define* (emacs-byte-compile-directory dir)
   "Byte compile all files in DIR and its sub-directories."
-  (let ((expr `(byte-recompile-directory (file-name-as-directory ,dir) 0)))
+  (let ((expr `(progn
+                (setq byte-compile-debug t) ; for proper exit status
+                (byte-recompile-directory (file-name-as-directory ,dir) 0 1))))
     (emacs-batch-eval expr)))
 
 (define-syntax emacs-substitute-sexps