summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2019-01-26 22:32:44 +0100
committerRicardo Wurmus <rekado@elephly.net>2019-01-26 22:32:44 +0100
commit75ac5e20bcd6eb6d177c0e7d787cb377a4c69d20 (patch)
treef57b7870c70b7dfed5f3b9f3349ecd602bf26dbe /gnu
parente5855e6f6bcccdeb49c44b10610458a1a72b888d (diff)
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.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/debug.scm17
1 files changed, 8 insertions, 9 deletions
diff --git a/gnu/packages/debug.scm b/gnu/packages/debug.scm
index 4e63c81b64..b15e374997 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")