@@ -3681,22 +3681,23 @@ (define-public guile-ffi-fftw
"08j40a5p6a8pgvhffmzb5rfdnrav2mksy3gfjkdqy93jfj1z5afg"))))
(build-system guile-build-system)
(arguments
- `(#:source-directory "mod"
- #:test-script "../test/test-ffi-fftw.scm"
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'prepare-build
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "mod/ffi/fftw.scm"
- (("\\(getenv \"GUILE_FFI_FFTW_LIBFFTW3_PATH\"\\)")
- (format #f "\"~a/lib\"" (assoc-ref inputs "fftw"))))
- #t)))))
+ (list #:source-directory "mod"
+ #:test-script "../test/test-ffi-fftw.scm"
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'prepare-build
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "mod/ffi/fftw.scm"
+ (("\\(getenv \"GUILE_FFI_FFTW_LIBFFTW3_PATH\"\\)")
+ (object->string
+ (dirname
+ (search-input-file inputs "lib/libfftw3.so"))))))))))
(native-inputs (list guile-test-driver))
- (inputs
- (list fftw guile-2.2))
+ (inputs (list fftw guile-2.2))
(home-page "https://github.com/lloda/guile-ffi-fftw/")
(synopsis "Access FFTW through Guile's FFI")
- (description "This is a minimal set of Guile FFI bindings for the FFTW
+ (description
+ "This is a minimal set of Guile FFI bindings for the FFTW
library's ‘guru interface’. It provides two functions: @code{fftw-dft! rank
sign in out} and @code{fftw-dft rank sign in}. These bindings being minimal,
there is no support for computing & reusing plans, or split r/i transforms, or