diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-11-08 09:58:05 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-11-08 09:58:05 +0100 |
| commit | ce49fdcce91803c873b899b088f9ed2ce22f1cd3 (patch) | |
| tree | bdd7a8cc32ea289139603c932c339059963a6587 /gnu | |
| parent | a9542937c8361b3aabda482bfdb40b07d92fba86 (diff) | |
| download | guix-ce49fdcce91803c873b899b088f9ed2ce22f1cd3.tar.gz | |
gnu: roary: Use INVOKE.
* gnu/packages/bioinformatics.scm (roary)[arguments]: Use INVOKE and return #T unconditionally.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/bioinformatics.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 1ceb40cb95..94b82660c9 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -4762,10 +4762,11 @@ partial genes, and identifies translation initiation sites.") (getenv "PATH"))) (setenv "PERL5LIB" (string-append (getcwd) "/lib" ":" (getenv "PERL5LIB"))) - (zero? (length (filter (lambda (file) - (display file)(display "\n") - (not (zero? (system* "perl" file)))) - (find-files "t" ".*\\.t$")))))) + (for-each (lambda (file) + (display file)(display "\n") + (invoke "perl" file)) + (find-files "t" ".*\\.t$")) + #t)) (replace 'install ;; There is no 'install' target in the Makefile. (lambda* (#:key outputs #:allow-other-keys) |