[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: inspekt3d: Adjust to changes in libfive.
From: |
guix-commits |
Subject: |
03/03: gnu: inspekt3d: Adjust to changes in libfive. |
Date: |
Mon, 24 Apr 2023 03:55:07 -0400 (EDT) |
rekado pushed a commit to branch core-updates
in repository guix.
commit e2c1506e86336b5043389742e261de9fdaab2c3d
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Mon Apr 24 09:53:06 2023 +0200
gnu: inspekt3d: Adjust to changes in libfive.
* gnu/packages/engineering.scm (inspekt3d)[arguments]: Use G-expression;
patch
file to avoid loading removed extension; adjust name of libfive library.
---
gnu/packages/engineering.scm | 21 +++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 7f073970cb..d50c167cce 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -975,16 +975,17 @@ language.")
(("2\\.2") "3.0 2.2")))))
(build-system gnu-build-system)
(arguments
- `(#:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'patch-libfive-guile-location
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "inspekt3d/library.scm"
- (("\"libfive-guile")
- (string-append "\""
- (assoc-ref inputs "libfive")
- "/lib/libfive-guile")))
- #t)))))
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-libfive-guile-location
+ (lambda _
+ (substitute* "inspekt3d/library.scm"
+ (("\\(load-extension \"libfive-guile\"
\"scm_init_libfive_modules\"\\)") "#t")
+ (("\"libfive-guile")
+ (string-append "\""
+ #$(this-package-input "libfive")
+ "/lib/libfive-stdlib"))))))))
(native-inputs
(list autoconf automake pkg-config))
(inputs