diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2025-03-22 20:57:02 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2025-03-22 20:57:02 +0300 |
| commit | 79886293a8f075b85c4de515d64b95ebb372c55c (patch) | |
| tree | 3424f97516d71c39fcd298df7c5b1e74df37b7e5 | |
| parent | d9adaebcc24a81f7fdc3d7cd4723bfbd9e5f14e2 (diff) | |
gnu: fasthenry: Use GEXPs.
* gnu/packages/engineering.scm (fasthenry): Use GEXPs.
Change-Id: I045469fc002fc7c05067974dc82516c1e3af9ab7
| -rw-r--r-- | gnu/packages/engineering.scm | 43 |
1 files 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 |