06/07: gnu: hypre: Unconditionally return #T from build phases.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 6b1c7ac8ed6f0877b1036335caeee497d644a00e
Author: Ricardo Wurmus <address@hidden>
Date:   Sun Apr 28 11:43:36 2019 +0200

    gnu: hypre: Unconditionally return #T from build phases.
    
    * gnu/packages/maths.scm (hypre)[arguments]: Use INVOKE and unconditionally
    return #T from build phases.
---
 gnu/packages/maths.scm | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 788bfc8..d590285 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -3751,16 +3751,14 @@ set.")
            (lambda _
              (setenv "LD_LIBRARY_PATH" (string-append (getcwd) "/hypre/lib"))
              (setenv "PATH" (string-append "." ":" (getenv "PATH")))
-             (and (system* "make" "check" "CHECKRUN=")
-                  (fold (lambda (filename result)
-                          (and result
-                               (let ((size (stat:size (stat filename))))
-                                 (when (not (zero? size))
-                                   (format #t "~a size ~d; error indication~%"
-                                           filename size))
-                                 (zero? size))))
-                        #t
-                        (find-files "test" ".*\\.err$")))))
+             (invoke "make" "check" "CHECKRUN=")
+             (for-each (lambda (filename)
+                         (let ((size (stat:size (stat filename))))
+                           (when (positive? size)
+                             (error (format #f "~a size ~d; error indication~%"
+                                            filename size)))))
+                       (find-files "test" ".*\\.err$"))
+             #t))
          (add-after 'install 'install-docs
            (lambda* (#:key outputs #:allow-other-keys)
              ;; Custom install because docs/Makefile doesn't honor ${docdir}.