[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: lpsolve: Fail as early as possible.
From: |
Ludovic Courtès |
Subject: |
01/02: gnu: lpsolve: Fail as early as possible. |
Date: |
Mon, 25 Jul 2016 22:44:09 +0000 (UTC) |
civodul pushed a commit to branch core-updates
in repository guix.
commit 6689d09457c8d55b4f045ef9116478ffe02679df
Author: Ludovic Courtès <address@hidden>
Date: Tue Jul 26 00:40:54 2016 +0200
gnu: lpsolve: Fail as early as possible.
* gnu/packages/maths.scm (lpsolve)[arguments]: In 'build' phase, check
the return value of 'system*' and honor it.
---
gnu/packages/maths.scm | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index ad7d0e2..0e6fda3 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -2198,11 +2198,10 @@ specifications.")
(delete 'configure)
(replace 'build
(lambda _
- (with-directory-excursion "lpsolve55"
- (system* "bash" "ccc"))
- (with-directory-excursion "lp_solve"
- (system* "bash" "ccc"))
- #t))
+ (and (with-directory-excursion "lpsolve55"
+ (zero? (system* "bash" "ccc")))
+ (with-directory-excursion "lp_solve"
+ (zero? (system* "bash" "ccc"))))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))