diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-01-02 14:52:30 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-01-02 14:54:24 +0100 |
| commit | 1a49a10a94e90dc8bb4ce80d2dc2fa21acf76424 (patch) | |
| tree | ec013ff92555a8a354f1126e526a6b1bf87fd10e | |
| parent | 7355634db3ccf0d86f8e34c4aea37392c1a0ab0a (diff) | |
| download | guix-1a49a10a94e90dc8bb4ce80d2dc2fa21acf76424.tar guix-1a49a10a94e90dc8bb4ce80d2dc2fa21acf76424.tar.gz | |
gnu: fftw: Factorize creation of the --enable-threads variant.
* gnu/packages/algebra.scm (pthread-variant): New procedure.
(fftw-with-threads, fftwf-with-threads): Use it.
| -rw-r--r-- | gnu/packages/algebra.scm | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm index 892b6cf525..d09e2e83b2 100644 --- a/gnu/packages/algebra.scm +++ b/gnu/packages/algebra.scm @@ -577,23 +577,22 @@ cosine/ sine transforms or DCT/DST).") (string-append (package-description fftw) " Single-precision version.")))) -;; FIXME: These packages are used temporarily by packages like Ardour until -;; "--enable-flags" is added to the fftw and fftwf packages. -(define-public fftw-with-threads - (package (inherit fftw) - (name "fftw-pthreads") +(define (pthread-variant p) + (package + (inherit p) + (name (string-append (package-name p) "-pthreads")) (arguments (substitute-keyword-arguments (package-arguments fftw) ((#:configure-flags flags) `(cons "--enable-threads" ,flags)))))) +;; FIXME: These packages are used temporarily by packages like Ardour until +;; "--enable-flags" is added to the fftw and fftwf packages. +(define-public fftw-with-threads + (pthread-variant fftw)) + (define-public fftwf-with-threads - (package (inherit fftwf) - (name "fftwf-pthreads") - (arguments - (substitute-keyword-arguments (package-arguments fftwf) - ((#:configure-flags flags) - `(cons "--enable-threads" ,flags)))))) + (pthread-variant fftwf)) (define-public fftw-openmpi (package (inherit fftw) |