17/22: gnu: seek: Use INVOKE.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit a9542937c8361b3aabda482bfdb40b07d92fba86
Author: Ricardo Wurmus <address@hidden>
Date:   Thu Nov 8 09:54:22 2018 +0100

    gnu: seek: Use INVOKE.
    
    * gnu/packages/bioinformatics.scm (seek)[arguments]: Use INVOKE and return 
#T
    unconditionally; patch "gen_tools_am" shebang in "bootstrap" phase.
---
 gnu/packages/bioinformatics.scm | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index c175227..1ceb40c 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -5057,21 +5057,24 @@ distribution, coverage uniformity, strand specificity, 
etc.")
            (modify-phases %standard-phases
              (replace 'bootstrap
                (lambda _
-                 (invoke "bash" "gen_auto")))
+                 (substitute* "gen_tools_am"
+                   (("/usr/bin/env.*") (which "perl")))
+                 (invoke "bash" "gen_auto")
+                 #t))
              (add-after 'build 'build-additional-tools
                (lambda* (#:key make-flags #:allow-other-keys)
-                 (every (lambda (dir)
-                          (with-directory-excursion (string-append "tools/" 
dir)
-                            (zero? (apply system* "make" make-flags))))
-                        dirs)))
+                 (for-each (lambda (dir)
+                             (with-directory-excursion (string-append "tools/" 
dir)
+                               (apply invoke "make" make-flags)))
+                           dirs)
+                 #t))
              (add-after 'install 'install-additional-tools
                (lambda* (#:key make-flags #:allow-other-keys)
-                 (fold (lambda (dir result)
-                         (with-directory-excursion (string-append "tools/" dir)
-                           (and result
-                                (zero? (apply system*
-                                              `("make" ,@make-flags 
"install"))))))
-                       #t dirs)))))))
+                 (for-each (lambda (dir)
+                             (with-directory-excursion (string-append "tools/" 
dir)
+                               (apply invoke `("make" ,@make-flags 
"install"))))
+                           dirs)
+                 #t))))))
       (inputs
        `(("gsl" ,gsl)
          ("boost" ,boost)