From 66c44dd6e49b581f33eb98fe764ce75945a0638b Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sat, 22 Mar 2025 23:35:25 +0300
Subject: [PATCH] gnu: qelectrotech: Use GEXPs.

* gnu/packages/engineering.scm (qelectrotech): Use GEXPs.

Change-Id: Ibfdce387805f01a3073b81e2ff59b5521514f0fa
---
 gnu/packages/engineering.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 892013c8609..f3bcf77c797 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -924,15 +924,15 @@ required for Fritzing app.")
     (arguments
      ;; XXX: tests are built for the CMake build option but it seems to be
      ;; broken in 0.8.0.
-     `(#:tests? #f
-       #:phases
-       (modify-phases %standard-phases
-         (replace 'configure
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               ;; Patch hardcoded path before running qmake.
-               (substitute* "qelectrotech.pro" (("\\/usr\\/local") out))
-               (invoke "qmake")))))))
+     (list #:tests? #f
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'configure
+                 (lambda _
+                   ;; Patch hardcoded path before running qmake.
+                   (substitute* "qelectrotech.pro"
+                     (("\\/usr\\/local") #$output))
+                   (invoke "qmake"))))))
     (native-inputs
      (list pkg-config qttools-5))
     (inputs