mhw pushed a commit to branch core-updates
in repository guix.
commit b132ad3a6314b29aca3a149089f1341f91a0f179
Author: Mark H Weaver <[email protected]>
Date: Fri Mar 16 02:07:29 2018 -0400
gnu: e2fsprogs: Use invoke.
* gnu/packages/linux.scm (e2fsprogs)[arguments]: Use invoke and remove
vestigial result code plumbing.
---
gnu/packages/linux.scm | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index e090b79..b5201a3 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -797,18 +797,18 @@ slabtop, and skill.")
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib")))
- (and (zero? (system* "make" "install-libs"))
-
- ;; Make the .a writable so that 'strip' works.
- ;; Failing to do that, due to debug symbols, we
- ;; retain a reference to the final
- ;; linux-libre-headers, which refer to the
- ;; bootstrap binaries.
- (let ((archives (find-files lib "\\.a$")))
- (for-each (lambda (file)
- (chmod file #o666))
- archives)
- #t))))))))
+ (invoke "make" "install-libs")
+
+ ;; Make the .a writable so that 'strip' works.
+ ;; Failing to do that, due to debug symbols, we
+ ;; retain a reference to the final
+ ;; linux-libre-headers, which refer to the
+ ;; bootstrap binaries.
+ (let ((archives (find-files lib "\\.a$")))
+ (for-each (lambda (file)
+ (chmod file #o666))
+ archives))
+ #t))))))
(home-page "http://e2fsprogs.sourceforge.net/";)
(synopsis "Creating and checking ext2/ext3/ext4 file systems")
(description
