* gnu/packages/embedded.scm (stlink): Use GEXPs.
Change-Id: I26e2649f29c1e742f848f3efc5a10c218bb5bb28
---
gnu/packages/embedded.scm | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
Toggle diff (28 lines)
diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm
index 6b3acefea2..0dcfc6669f 100644
--- a/gnu/packages/embedded.scm
+++ b/gnu/packages/embedded.scm
@@ -1653,14 +1653,13 @@ (define-public stlink
"1g5ahnj400sdf75k3xafawa6x0pzz7s86nqnfd65gqjr3bdlhlc6"))))
(build-system cmake-build-system)
(arguments
- `(#:tests? #f ;no tests
- #:configure-flags
- (let* ((out (assoc-ref %outputs "out"))
- (etc (in-vicinity out "etc"))
- (modprobe (in-vicinity etc "modprobe.d"))
- (udev-rules (in-vicinity etc "udev/rules.d")))
- (list (string-append "-DSTLINK_UDEV_RULES_DIR=" udev-rules)
- (string-append "-DSTLINK_MODPROBED_DIR=" modprobe)))))
+ (list #:tests? #f ;no tests
+ #:configure-flags
+ #~(let* ((etc (in-vicinity #$output "etc"))
+ (modprobe (in-vicinity etc "modprobe.d"))
+ (udev-rules (in-vicinity etc "udev/rules.d")))
+ (list (string-append "-DSTLINK_UDEV_RULES_DIR=" udev-rules)
+ (string-append "-DSTLINK_MODPROBED_DIR=" modprobe)))))
(inputs
(list libusb))
(synopsis "Programmer for STM32 Discovery boards")
--
2.46.0