me/guix
Archived
1
0
Fork 0
Code Activity

gnu: e2fsprogs: Use invoke.

Browse source 
* gnu/packages/linux.scm (e2fsprogs)[arguments]: Use invoke and remove
vestigial result code plumbing.
This commit is contained in:
Mark H Weaver 2018-03-16 02:07:29 -04:00
parent 9feb4fd589
commit b132ad3a63
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/packages/linux.scm
View file

@ -797,7 +797,7 @@ slabtop, and skill.")
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib"))) (lib (string-append out "/lib")))
(and (zero? (system* "make" "install-libs")) (invoke "make" "install-libs")
;; Make the .a writable so that 'strip' works. ;; Make the .a writable so that 'strip' works.
;; Failing to do that, due to debug symbols, we ;; Failing to do that, due to debug symbols, we
@ -807,8 +807,8 @@ slabtop, and skill.")
(let ((archives (find-files lib "\\.a$"))) (let ((archives (find-files lib "\\.a$")))
(for-each (lambda (file) (for-each (lambda (file)
(chmod file #o666)) (chmod file #o666))
archives) archives))
#t)))))))) #t))))))
(home-page "http://e2fsprogs.sourceforge.net/") (home-page "http://e2fsprogs.sourceforge.net/")
(synopsis "Creating and checking ext2/ext3/ext4 file systems") (synopsis "Creating and checking ext2/ext3/ext4 file systems")
(description (description