From a9542937c8361b3aabda482bfdb40b07d92fba86 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Thu, 8 Nov 2018 09:54:22 +0100 Subject: 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 c175227997..1ceb40cb95 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) -- cgit v1.2.3