guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/03: gnu: eigen: Use 'modify-phases'.


From: Ludovic Courtès
Subject: 02/03: gnu: eigen: Use 'modify-phases'.
Date: Mon, 16 Nov 2015 15:44:56 +0000

civodul pushed a commit to branch master
in repository guix.

commit 354f4fe2926d52fcd767022cd9b5ded319807e0e
Author: Ludovic Courtès <address@hidden>
Date:   Mon Nov 16 15:52:56 2015 +0100

    gnu: eigen: Use 'modify-phases'.
    
    * gnu/packages/algebra.scm (eigen)[arguments]: Use 'modify-phases'
      instead of 'alist-cons-before'.
---
 gnu/packages/algebra.scm |   23 +++++++++++------------
 1 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm
index fb3b3e9..41464ca 100644
--- a/gnu/packages/algebra.scm
+++ b/gnu/packages/algebra.scm
@@ -413,19 +413,18 @@ cosine/ sine transforms or DCT/DST).")
        ;; <http://eigen.tuxfamily.org/index.php?title=Tests>.
        #:test-target "check"
 
-       #:phases (alist-cons-before
-                 'check 'build-tests
-                 (lambda _
-                   ;; First build the tests, in parallel.
-                   ;; See <http://eigen.tuxfamily.org/index.php?title=Tests>.
-                   (let* ((cores  (parallel-job-count))
-                          (dash-j (format #f "-j~a" cores)))
-                     ;; These variables are supposed to be honored.
-                     (setenv "EIGEN_MAKE_ARGS" dash-j)
-                     (setenv "EIGEN_CTEST_ARGS" dash-j)
+       #:phases (modify-phases %standard-phases
+                  (add-before 'check 'build-tests
+                    (lambda _
+                      ;; First build the tests, in parallel.
+                      ;; See 
<http://eigen.tuxfamily.org/index.php?title=Tests>.
+                      (let* ((cores  (parallel-job-count))
+                             (dash-j (format #f "-j~a" cores)))
+                        ;; These variables are supposed to be honored.
+                        (setenv "EIGEN_MAKE_ARGS" dash-j)
+                        (setenv "EIGEN_CTEST_ARGS" dash-j)
 
-                     (zero? (system* "make" "buildtests" dash-j))))
-                 %standard-phases)))
+                        (zero? (system* "make" "buildtests" dash-j))))))))
     (home-page "http://eigen.tuxfamily.org";)
     (synopsis "C++ template library for linear algebra")
     (description



reply via email to

[Prev in Thread] Current Thread [Next in Thread]