guix-commits
[Top][All Lists]
Advanced

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

04/09: gnu: fftw: Update phase style.


From: Tobias Geerinckx-Rice
Subject: 04/09: gnu: fftw: Update phase style.
Date: Mon, 19 Feb 2018 21:14:12 -0500 (EST)

nckx pushed a commit to branch core-updates
in repository guix.

commit b07e817e21b794ec81499dc38125775d6722cc48
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Mon Feb 19 21:46:15 2018 +0100

    gnu: fftw: Update phase style.
    
    * gnu/packages/algebra.scm (fftw)[arguments]: Use MODIFY-PHASES syntax
    and end phase with #t.
---
 gnu/packages/algebra.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm
index f904396..8c42ac3 100644
--- a/gnu/packages/algebra.scm
+++ b/gnu/packages/algebra.scm
@@ -530,16 +530,17 @@ a C program.")
     (arguments
      '(#:configure-flags
        '("--enable-shared" "--enable-openmp" "--enable-threads")
-       #:phases (alist-cons-before
-                 'build 'no-native
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'build 'no-native
                  (lambda _
                    ;; By default '-mtune=native' is used.  However, that may
                    ;; cause the use of ISA extensions (SSE2, etc.) that are
                    ;; not necessarily available on the user's machine when
                    ;; that package is built on a different machine.
                    (substitute* (find-files "." "Makefile$")
-                     (("-mtune=native") "")))
-                 %standard-phases)))
+                     (("-mtune=native") ""))
+                   #t)))))
     (native-inputs `(("perl" ,perl)))
     (home-page "http://fftw.org";)
     (synopsis "Computing the discrete Fourier transform")



reply via email to

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