gnu: cmus: Use INVOKE.

* gnu/packages/music.scm (cmus)[arguments]: Use INVOKE and return #T
unconditionally.

1 files changed, 8 insertions, 10 deletions

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 7f1d124233..af7589c23d 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:
     ;;