bavier pushed a commit to branch master
in repository guix.

commit 2509522c4f4be4491418e65b764862a05444f460
Author: Eric Bavier <bav...@member.fsf.org>
Date:   Tue Aug 8 20:00:09 2017 -0500

    gnu: suitesparse: Use modify-phases.
    
    * gnu/packages/maths.scm (suitesparse)[arguments]: Use modify-phases.
---
 gnu/packages/maths.scm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index cc9a9a4..5f2697e 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -2448,15 +2448,14 @@ Fresnel integrals, and similar related functions as 
well.")
              (string-append "INSTALL_INCLUDE="
                             (assoc-ref %outputs "out") "/include"))
        #:phases
-       (alist-cons-before
-        'install 'prepare-out
-        ;; README.txt states that the target directories must exist prior to
-        ;; running "make install".
-        (lambda _
-          (mkdir-p (string-append (assoc-ref %outputs "out") "/lib"))
-          (mkdir-p (string-append (assoc-ref %outputs "out") "/include")))
-        ;; no configure script
-        (alist-delete 'configure %standard-phases))))
+       (modify-phases %standard-phases
+         (delete 'configure)            ;no configure script
+         (add-before 'install 'prepare-out
+           ;; README.txt states that the target directories must exist prior to
+           ;; running "make install".
+           (lambda _
+             (mkdir-p (string-append (assoc-ref %outputs "out") "/lib"))
+             (mkdir-p (string-append (assoc-ref %outputs "out") 
"/include")))))))
     (inputs
      `(("tbb" ,tbb)
        ("lapack" ,lapack)))

Reply via email to