diff options
| -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) |