gnu: atlas: Always return #T from build phases.

* gnu/packages/maths.scm (atlas)[arguments]: Always return #T from build
phases; use INVOKE.
This commit is contained in:
Ricardo Wurmus 2019-04-28 10:44:34 +02:00
parent 1ec1782106
commit cb6f44d4e4
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 7 additions and 8 deletions

View File

@ -3300,7 +3300,6 @@ packages.")
#:substitutable? #f #:substitutable? #f
#:modules ((srfi srfi-26) #:modules ((srfi srfi-26)
(srfi srfi-1)
(guix build gnu-build-system) (guix build gnu-build-system)
(guix build utils)) (guix build utils))
#:configure-flags #:configure-flags
@ -3333,11 +3332,11 @@ packages.")
(let ((doc (string-append (assoc-ref outputs "doc") (let ((doc (string-append (assoc-ref outputs "doc")
"/share/doc/atlas"))) "/share/doc/atlas")))
(mkdir-p doc) (mkdir-p doc)
(fold (lambda (file previous) (for-each (cut install-file <> doc)
(and previous (zero? (system* "cp" file doc)))) (find-files "../ATLAS/doc" ".*"))
#t (find-files "../ATLAS/doc" ".*"))))) #t)))
(add-after 'check 'check-pt (add-after 'check 'check-pt
(lambda _ (zero? (system* "make" "ptcheck")))) (lambda _ (invoke "make" "ptcheck")))
;; Fix files required to run configure. ;; Fix files required to run configure.
(add-before 'configure 'fix-/bin/sh (add-before 'configure 'fix-/bin/sh
(lambda _ (lambda _
@ -3372,9 +3371,9 @@ packages.")
(chdir "../build") (chdir "../build")
(format #t "build directory: ~s~%" (getcwd)) (format #t "build directory: ~s~%" (getcwd))
(format #t "configure flags: ~s~%" flags) (format #t "configure flags: ~s~%" flags)
(zero? (apply system* bash (apply invoke bash
(string-append srcdir "/configure") (string-append srcdir "/configure")
flags)))))))) flags)))))))
(synopsis "Automatically Tuned Linear Algebra Software") (synopsis "Automatically Tuned Linear Algebra Software")
(description (description
"ATLAS is an automatically tuned linear algebra software library "ATLAS is an automatically tuned linear algebra software library