02/02: gnu: dvd+rw-tools: Use invoke.

[Efraim Flashner]

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

commit efe0a4a2a7ece13c855a1f316ad49bcdbfa1596f
Author: Efraim Flashner <address@hidden>
Date:   Sat Nov 10 19:58:28 2018 +0200

    gnu: dvd+rw-tools: Use invoke.
    
    * gnu/packages/cdrom.scm (dvd+rw-tools): Use 'invoke'.
---
 gnu/packages/cdrom.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index 992c204..ccb2766 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -303,14 +303,14 @@ images.")
          (replace 'configure
            (lambda _ (setenv "prefix" (assoc-ref %outputs "out")) #t))
          (add-before 'build 'embed-mkisofs
-           (lambda*  (#:key inputs #:allow-other-keys)
+           (lambda* (#:key inputs #:allow-other-keys)
              ;; We use sed --in-place because substitute* cannot handle the
              ;; character encoding used by growisofs.c.
-             (zero? (system* "sed" "-i" "-e"
-                             (string-append
-                              "s,\"mkisofs\","
-                              "\"" (which "mkisofs") "\",")
-                             "growisofs.c")))))))
+             (invoke "sed" "-i" "-e"
+                     (string-append
+                       "s,\"mkisofs\","
+                       "\"" (which "mkisofs") "\",")
+                     "growisofs.c"))))))
     (home-page "http://fy.chalmers.se/~appro/linux/DVD+RW/";)
     (synopsis "DVD and Blu-ray Disc burning tools")
     (description "dvd+rw-tools, mostly known for its command