summaryrefslogtreecommitdiff
path: root/gnu/packages/maths.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2019-04-28 11:43:36 +0200
committerRicardo Wurmus <rekado@elephly.net>2019-04-28 16:05:57 +0200
commit6b1c7ac8ed6f0877b1036335caeee497d644a00e (patch)
tree666bf33a0fae1e03951317fb5259d788098a5f37 /gnu/packages/maths.scm
parent9cd82b1c9dca1772f769b27999e4b9a24e2e787e (diff)
gnu: hypre: Unconditionally return #T from build phases.
* gnu/packages/maths.scm (hypre)[arguments]: Use INVOKE and unconditionally return #T from build phases.
Diffstat (limited to 'gnu/packages/maths.scm')
-rw-r--r--gnu/packages/maths.scm18
1 files changed, 8 insertions, 10 deletions
diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 788bfc882a..d59028599f 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}.