01/02: gnu: american-fuzzy-lop: Unconditionally return #T from build phases.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 75ac5e20bcd6eb6d177c0e7d787cb377a4c69d20
Author: Ricardo Wurmus <address@hidden>
Date:   Sat Jan 26 22:32:44 2019 +0100

    gnu: american-fuzzy-lop: Unconditionally return #T from build phases.
    
    * gnu/packages/debug.scm (american-fuzzy-lop)[arguments]: Use INVOKE and
    unconditionally return #T from build phases.
---
 gnu/packages/debug.scm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/debug.scm b/gnu/packages/debug.scm
index 4e63c81..b15e374 100644
--- a/gnu/packages/debug.scm
+++ b/gnu/packages/debug.scm
@@ -194,10 +194,8 @@ tools that process C/C++ code.")
                                   (patch-dir
                                    (string-append afl-dir
                                                   "/qemu_mode/patches")))
-                             (unless (zero?
-                                      (system* "tar" "xf"
-                                               (assoc-ref inputs "afl-src")))
-                               (error "tar failed to unpack afl-src"))
+                             (invoke "tar" "xf"
+                                     (assoc-ref inputs "afl-src"))
                              (install-file (string-append patch-dir
                                                           
"/afl-qemu-cpu-inl.h")
                                            ".")
@@ -210,11 +208,12 @@ tools that process C/C++ code.")
                              (substitute* (string-append patch-dir
                                                          "/cpu-exec.diff")
                                (("\\.\\./patches/") ""))
-                             (every (lambda (patch-file)
-                                      (zero? (system* "patch" "--force" "-p1"
-                                                      "--input" patch-file)))
-                                    (find-files patch-dir
-                                                "\\.diff$"))))))))))))))
+                             (for-each (lambda (patch-file)
+                                         (invoke "patch" "--force" "-p1"
+                                                 "--input" patch-file))
+                                       (find-files patch-dir
+                                                   "\\.diff$"))
+                             #t))))))))))))
       (arguments
        `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs 
"out"))
                             "CC=gcc")