Subject: [bug#74384] [PATCH 2/2] gnu: stlink: Use GEXPs.

From: "Artyom V. Poptsov" <[email-masked]>
Date: Sat, 16 Nov 2024 19:42:49 +0300

* gnu/packages/embedded.scm (stlink): Use GEXPs.

Change-Id: I26e2649f29c1e742f848f3efc5a10c218bb5bb28
---
 gnu/packages/embedded.scm | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

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