summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2018-04-15 22:48:53 -0400
committerArun Isaac <arunisaac@systemreboot.net>2018-05-03 21:48:59 +0530
commitc1b4ad2e6e5bf9202be5fc5ed243a3b048287e8c (patch)
treece4928c8275d1d4ac5f05ea8a6da813098d42252
parent159d10ae1496d8a22d76d35767231e261a83610c (diff)
downloadpatches-c1b4ad2e6e5bf9202be5fc5ed243a3b048287e8c.tar
patches-c1b4ad2e6e5bf9202be5fc5ed243a3b048287e8c.tar.gz
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 <arunisaac@systemreboot.net>
-rw-r--r--guix/build/emacs-utils.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/build/emacs-utils.scm b/guix/build/emacs-utils.scm
index 2bd4e39854..a98e7a6343 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