me
/
guix
Archived
1
0
Fork 0
Code

gnu: e2fsprogs: Use invoke. 

* gnu/packages/linux.scm (e2fsprogs)[arguments]: Use invoke and remove
vestigial result code plumbing.
master
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

22
gnu/packages/linux.scm
View File

@ -797,18 +797,18 @@ 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
;; retain a reference to the final ;; retain a reference to the final
;; linux-libre-headers, which refer to the ;; linux-libre-headers, which refer to the
;; bootstrap binaries. ;; bootstrap binaries.
(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