me/guix
Archived
1
0
Fork 0
Code Activity

gnu: superlu-dist: Return #t from all phases.

Browse source 
* gnu/packages/maths.scm (superlu-dist)[arguments]: Return #t rather
than undefined from phases. Substitute INVOKE for SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-30 02:29:43 +02:00
parent d67a7e9e8d
commit e02a9975b8
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/maths.scm
View file

@ -2231,11 +2231,11 @@ CDEFS = -DAdd_"
;; isn't used anyway.) ;; isn't used anyway.)
(setenv "OMPI_MCA_plm_rsh_agent" (which "cat")) (setenv "OMPI_MCA_plm_rsh_agent" (which "cat"))
(with-directory-excursion "EXAMPLE" (with-directory-excursion "EXAMPLE"
(and (invoke "mpirun" "-n" "2"
(zero? (system* "mpirun" "-n" "2" "./pddrive" "-r" "1" "-c" "2" "g20.rua")
"./pddrive" "-r" "1" "-c" "2" "g20.rua")) (invoke "mpirun" "-n" "2"
(zero? (system* "mpirun" "-n" "2" "./pzdrive" "-r" "1" "-c" "2" "cg20.cua"))
"./pzdrive" "-r" "1" "-c" "2" "cg20.cua")))))) #t))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Library is placed in lib during the build phase. Copy over ;; Library is placed in lib during the build phase. Copy over