18/22: gnu: roary: Use INVOKE.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit ce49fdcce91803c873b899b088f9ed2ce22f1cd3
Author: Ricardo Wurmus <address@hidden>
Date:   Thu Nov 8 09:58:05 2018 +0100

    gnu: roary: Use INVOKE.
    
    * gnu/packages/bioinformatics.scm (roary)[arguments]: Use INVOKE and return 
#T
    unconditionally.
---
 gnu/packages/bioinformatics.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 1ceb40c..94b8266 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)