summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-11-08 09:58:05 +0100
committerRicardo Wurmus <rekado@elephly.net>2018-11-08 09:58:05 +0100
commitce49fdcce91803c873b899b088f9ed2ce22f1cd3 (patch)
treebdd7a8cc32ea289139603c932c339059963a6587 /gnu/packages
parenta9542937c8361b3aabda482bfdb40b07d92fba86 (diff)
downloadguix-ce49fdcce91803c873b899b088f9ed2ce22f1cd3.tar.gz
gnu: roary: Use INVOKE.
* gnu/packages/bioinformatics.scm (roary)[arguments]: Use INVOKE and return #T
unconditionally.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/bioinformatics.scm9
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)