gnu: fftw: Update phase style.

* gnu/packages/algebra.scm (fftw)[arguments]: Use MODIFY-PHASES syntax
and end phase with #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-02-19 21:46:15 +01:00
parent a0d4d2d860
commit b07e817e21
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 4 deletions

View File

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