gnu: seek: Use INVOKE.
* gnu/packages/bioinformatics.scm (seek)[arguments]: Use INVOKE and return #T unconditionally; patch "gen_tools_am" shebang in "bootstrap" phase.
This commit is contained in:
parent
9f527c9199
commit
a9542937c8
|
@ -5057,21 +5057,24 @@ distribution, coverage uniformity, strand specificity, etc.")
|
||||||
(modify-phases %standard-phases
|
(modify-phases %standard-phases
|
||||||
(replace 'bootstrap
|
(replace 'bootstrap
|
||||||
(lambda _
|
(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
|
(add-after 'build 'build-additional-tools
|
||||||
(lambda* (#:key make-flags #:allow-other-keys)
|
(lambda* (#:key make-flags #:allow-other-keys)
|
||||||
(every (lambda (dir)
|
(for-each (lambda (dir)
|
||||||
(with-directory-excursion (string-append "tools/" dir)
|
(with-directory-excursion (string-append "tools/" dir)
|
||||||
(zero? (apply system* "make" make-flags))))
|
(apply invoke "make" make-flags)))
|
||||||
dirs)))
|
dirs)
|
||||||
|
#t))
|
||||||
(add-after 'install 'install-additional-tools
|
(add-after 'install 'install-additional-tools
|
||||||
(lambda* (#:key make-flags #:allow-other-keys)
|
(lambda* (#:key make-flags #:allow-other-keys)
|
||||||
(fold (lambda (dir result)
|
(for-each (lambda (dir)
|
||||||
(with-directory-excursion (string-append "tools/" dir)
|
(with-directory-excursion (string-append "tools/" dir)
|
||||||
(and result
|
(apply invoke `("make" ,@make-flags "install"))))
|
||||||
(zero? (apply system*
|
dirs)
|
||||||
`("make" ,@make-flags "install"))))))
|
#t))))))
|
||||||
#t dirs)))))))
|
|
||||||
(inputs
|
(inputs
|
||||||
`(("gsl" ,gsl)
|
`(("gsl" ,gsl)
|
||||||
("boost" ,boost)
|
("boost" ,boost)
|
||||||
|
|
Loading…
Reference in New Issue