From 6689d09457c8d55b4f045ef9116478ffe02679df Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 26 Jul 2016 00:40:54 +0200 Subject: [PATCH] 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 ad7d0e22ee..0e6fda3758 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"))