diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2018-04-15 22:48:53 -0400 |
|---|---|---|
| committer | Arun Isaac <arunisaac@systemreboot.net> | 2018-05-03 21:48:59 +0530 |
| commit | c1b4ad2e6e5bf9202be5fc5ed243a3b048287e8c (patch) | |
| tree | ce4928c8275d1d4ac5f05ea8a6da813098d42252 /guix/build/emacs-utils.scm | |
| parent | 159d10ae1496d8a22d76d35767231e261a83610c (diff) | |
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>
Diffstat (limited to 'guix/build/emacs-utils.scm')
| -rw-r--r-- | guix/build/emacs-utils.scm | 4 |
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 |