nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Ludovic Courtès 2016-07-26 00:40:54 +02:00
parent e83a13faa2
commit 6689d09457
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/packages/maths.scm
View File

@ -2198,11 +2198,10 @@ specifications.")
(delete 'configure) (delete 'configure)
(replace 'build (replace 'build
(lambda _ (lambda _
(with-directory-excursion "lpsolve55" (and (with-directory-excursion "lpsolve55"
(system* "bash" "ccc")) (zero? (system* "bash" "ccc")))
(with-directory-excursion "lp_solve" (with-directory-excursion "lp_solve"
(system* "bash" "ccc")) (zero? (system* "bash" "ccc"))))))
#t))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))