From cb6f44d4e4384f481db4de8fec3f76635f32ad79 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 28 Apr 2019 10:44:34 +0200 Subject: [PATCH] gnu: atlas: Always return #T from build phases. * gnu/packages/maths.scm (atlas)[arguments]: Always return #T from build phases; use INVOKE. --- gnu/packages/maths.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index e4e9c52598..6aa402b823 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -3300,7 +3300,6 @@ packages.") #:substitutable? #f #:modules ((srfi srfi-26) - (srfi srfi-1) (guix build gnu-build-system) (guix build utils)) #:configure-flags @@ -3333,11 +3332,11 @@ packages.") (let ((doc (string-append (assoc-ref outputs "doc") "/share/doc/atlas"))) (mkdir-p doc) - (fold (lambda (file previous) - (and previous (zero? (system* "cp" file doc)))) - #t (find-files "../ATLAS/doc" ".*"))))) + (for-each (cut install-file <> doc) + (find-files "../ATLAS/doc" ".*")) + #t))) (add-after 'check 'check-pt - (lambda _ (zero? (system* "make" "ptcheck")))) + (lambda _ (invoke "make" "ptcheck"))) ;; Fix files required to run configure. (add-before 'configure 'fix-/bin/sh (lambda _ @@ -3372,9 +3371,9 @@ packages.") (chdir "../build") (format #t "build directory: ~s~%" (getcwd)) (format #t "configure flags: ~s~%" flags) - (zero? (apply system* bash - (string-append srcdir "/configure") - flags)))))))) + (apply invoke bash + (string-append srcdir "/configure") + flags))))))) (synopsis "Automatically Tuned Linear Algebra Software") (description "ATLAS is an automatically tuned linear algebra software library