From 94a1eb96d32fcce97ee5d9440ecffe22f7555cd5 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Fri, 26 Jan 2018 22:59:40 +0100
Subject: [PATCH] gnu: fbcat, slepc: Use INVOKE.

* gnu/packages/linux.scm (fbcat)[arguments]: Substitute INVOKE for
SYSTEM*.
* gnu/packages/maths.scm (slepc)[arguments]: Likewise.
---
 gnu/packages/linux.scm | 5 +++--
 gnu/packages/maths.scm | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 869b4f752b..9a410b0b10 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -4587,8 +4587,9 @@ (define-public fbcat
          (delete 'configure)            ; no configure script
          (add-after 'build 'build-documentation
            (lambda* (#:key make-flags #:allow-other-keys)
-             (zero? (apply system* "make" "-C" "doc"
-                           make-flags))))
+             (apply invoke "make" "-C" "doc"
+                    make-flags)
+             #t))
          (add-after 'build 'qualify-references
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((pnmtopng (assoc-ref inputs "pnmtopng"))
diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index d4e9914e18..90beb6c724 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -1647,7 +1647,7 @@ (define-public slepc
               (format #t "configure flags: ~s~%" flags)
               (setenv "SLEPC_DIR" (getcwd))
               (setenv "PETSC_DIR" (assoc-ref inputs "petsc"))
-              (zero? (apply system* "./configure" flags)))))
+              (invoke "./configure" flags))))
          (add-after 'install 'delete-doc
           ;; TODO: SLEPc installs HTML documentation alongside headers in
           ;; $out/include.  We'd like to move them to share/doc, but delete