mhw pushed a commit to branch core-updates in repository guix. commit b132ad3a6314b29aca3a149089f1341f91a0f179 Author: Mark H Weaver <m...@netris.org> 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