diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-01-26 22:32:44 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-01-26 22:32:44 +0100 |
| commit | 75ac5e20bcd6eb6d177c0e7d787cb377a4c69d20 (patch) | |
| tree | f57b7870c70b7dfed5f3b9f3349ecd602bf26dbe /gnu/packages/debug.scm | |
| parent | e5855e6f6bcccdeb49c44b10610458a1a72b888d (diff) | |
| download | guix-75ac5e20bcd6eb6d177c0e7d787cb377a4c69d20.tar.gz | |
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/packages/debug.scm')
| -rw-r--r-- | gnu/packages/debug.scm | 17 |
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") |