diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-16 02:07:29 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-04-12 04:01:51 -0400 |
| commit | b132ad3a6314b29aca3a149089f1341f91a0f179 (patch) | |
| tree | 2015d89960c0067b5b087eae1761f0a80e5f34f5 | |
| parent | 9feb4fd589d0068730bd3fe28cc5e847bd99122b (diff) | |
| download | guix-b132ad3a6314b29aca3a149089f1341f91a0f179.tar.gz | |
gnu: e2fsprogs: Use invoke.
* gnu/packages/linux.scm (e2fsprogs)[arguments]: Use invoke and remove vestigial result code plumbing.
| -rw-r--r-- | gnu/packages/linux.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index e090b798ef..b5201a3b74 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 |