32/66: gnu: imake: Use invoke.

[Mark H. Weaver]

mhw pushed a commit to branch core-updates
in repository guix.

commit 859e8873d08f43787f02d4ce4b2b8482a3cf0fa7
Author: Mark H Weaver <address@hidden>
Date:   Fri Mar 23 02:50:46 2018 -0400

    gnu: imake: Use invoke.
    
    * gnu/packages/xorg.scm (imake)[arguments]: Use invoke and remove vestigial
    plumbing from the 'install-data' phase.
---
 gnu/packages/xorg.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index d8bfa90..c03e142 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013, 2014 Andreas Enge <address@hidden>
-;;; Copyright © 2014, 2015, 2017 Mark H Weaver <address@hidden>
+;;; Copyright © 2014, 2015, 2017, 2018 Mark H Weaver <address@hidden>
 ;;; Copyright © 2014, 2015 Eric Bavier <address@hidden>
 ;;; Copyright © 2015, 2016, 2017, 2018 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2015 Eric Dvorsak <address@hidden>
@@ -137,10 +137,10 @@
                  (substitute* '("mingw.cf" "Imake.tmpl" "nto.cf" "os2.cf"
                                 "linux.cf" "Amoeba.cf" "cygwin.cf")
                    (("/bin/sh") (which "bash")))
-                 (and (zero? (system* "./configure"
-                                      (string-append "SHELL=" (which "bash"))
-                                      (string-append "--prefix=" out)))
-                      (zero? (system* "make" "install"))))))))))
+                 (invoke "./configure"
+                         (string-append "SHELL=" (which "bash"))
+                         (string-append "--prefix=" out))
+                 (invoke "make" "install"))))))))
     (home-page "https://www.x.org/";)
     (synopsis "Source code configuration and build system")
     (description