From 1a49a10a94e90dc8bb4ce80d2dc2fa21acf76424 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 2 Jan 2017 14:52:30 +0100 Subject: 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. --- gnu/packages/algebra.scm | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) (limited to 'gnu') 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) -- cgit v1.2.3