21/22: gnu: cmus: Use INVOKE.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit ec618c2005a1dc5e5154d25e9599313cea1ce6e9
Author: Ricardo Wurmus <address@hidden>
Date:   Thu Nov 8 10:09:32 2018 +0100

    gnu: cmus: Use INVOKE.
    
    * gnu/packages/music.scm (cmus)[arguments]: Use INVOKE and return #T
    unconditionally.
---
 gnu/packages/music.scm | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 7f1d124..af7589c 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -322,16 +322,14 @@ playing your music.")
      `(#:tests? #f ; cmus does not include tests
        #:phases
        (modify-phases %standard-phases
-         (replace
-          'configure
-          (lambda* (#:key outputs #:allow-other-keys)
-            (let ((out (assoc-ref outputs "out")))
-
-              ;; It's an idiosyncratic configure script that doesn't
-              ;; understand --prefix=..; it wants prefix=.. instead.
-              (zero?
-               (system* "./configure"
-                        (string-append "prefix=" out)))))))))
+         (replace 'configure
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               ;; It's an idiosyncratic configure script that doesn't
+               ;; understand --prefix=..; it wants prefix=.. instead.
+               (invoke "./configure"
+                       (string-append "prefix=" out))
+               #t))))))
     ;; TODO: cmus optionally supports the following formats, which haven't yet
     ;; been added to Guix:
     ;;