avp pushed a commit to branch master
in repository guix.
commit 79886293a8f075b85c4de515d64b95ebb372c55c
Author: Artyom V. Poptsov <[email protected]>
AuthorDate: Sat Mar 22 20:57:02 2025 +0300
gnu: fasthenry: Use GEXPs.
* gnu/packages/engineering.scm (fasthenry): Use GEXPs.
Change-Id: I045469fc002fc7c05067974dc82516c1e3af9ab7
---
gnu/packages/engineering.scm | 43 +++++++++++++++++++++----------------------
1 file changed, 21 insertions(+), 22 deletions(-)
diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index e1c6c1ec01..892013c860 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -777,28 +777,27 @@ multipole-accelerated algorithm.")
(native-inputs (list gcc-9))
(build-system gnu-build-system)
(arguments
- `(#:make-flags '("CC=gcc" "RM=rm" "SHELL=sh" "all")
- #:parallel-build? #f
- #:tests? #f ;; no tests-suite
- #:modules ((srfi srfi-1)
- ,@%default-gnu-modules)
- #:phases
- (modify-phases %standard-phases
- (delete 'configure)
- (replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (data (string-append out "/share"))
- (bin (string-append out "/bin"))
- (doc (string-append data "/doc/" ,name "-"
,version))
- (examples (string-append doc "/examples")))
- (with-directory-excursion "bin"
- (for-each (lambda (f)
- (install-file f bin))
- (find-files "." ".*")))
- (copy-recursively "doc" doc)
- (copy-recursively "examples" examples)
- #t))))))
+ (list #:make-flags #~(list "CC=gcc" "RM=rm" "SHELL=sh" "all")
+ #:parallel-build? #f
+ #:tests? #f ;; no tests-suite
+ #:modules `((srfi srfi-1)
+ ,@%default-gnu-modules)
+ #:phases
+ #~(modify-phases %standard-phases
+ (delete 'configure)
+ (replace 'install
+ (lambda _
+ (let* ((data (string-append #$output "/share"))
+ (bin (string-append #$output "/bin"))
+ (doc (string-append data "/doc/"
+ #$name "-" #$version))
+ (examples (string-append doc "/examples")))
+ (with-directory-excursion "bin"
+ (for-each (lambda (f)
+ (install-file f bin))
+ (find-files "." ".*")))
+ (copy-recursively "doc" doc)
+ (copy-recursively "examples" examples)))))))
(home-page "https://www.rle.mit.edu/cpg/research_codes.htm";)
(synopsis "Multipole-accelerated inductance analysis program")
(description
