guix-commits
[Top][All Lists]
Advanced

[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"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]