diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2019-04-28 11:43:36 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2019-04-28 16:05:57 +0200 |
commit | 6b1c7ac8ed6f0877b1036335caeee497d644a00e (patch) | |
tree | 666bf33a0fae1e03951317fb5259d788098a5f37 /gnu/packages | |
parent | 9cd82b1c9dca1772f769b27999e4b9a24e2e787e (diff) | |
download | guix-patches-6b1c7ac8ed6f0877b1036335caeee497d644a00e.tar guix-patches-6b1c7ac8ed6f0877b1036335caeee497d644a00e.tar.gz |
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')
-rw-r--r-- | gnu/packages/maths.scm | 18 |
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}. |