From eb49c118cb211528adc2bcbb0758d3848b2bcf6b Mon Sep 17 00:00:00 2001
From: Maxime Devos <maximedevos@telenet.be>
Date: Sat, 19 Feb 2022 14:46:33 +0000
Subject: [PATCH 1/2] gnu: thermald: Use G-expressions.

* gnu/packages/admin.scm
  (thermald)[arguments]<#:configure-flags,#:make-flags,#:phases>: Convert to
  G-exps.
---
 gnu/packages/admin.scm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 17dc0f1315..0e9f0acb68 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -3879,17 +3879,16 @@ hard-coded.")
     (build-system gnu-build-system)
     (arguments
      `(#:configure-flags
-       (let ((out (assoc-ref %outputs "out")))
-         (list (string-append "--with-dbus-sys-dir="
-                              out "/etc/dbus-1/system.d")
-               "--localstatedir=/var"))
+       ,#~(list (string-append "--with-dbus-sys-dir="
+                               #$output "/etc/dbus-1/system.d")
+                "--localstatedir=/var")
        #:make-flags
-       (list "V=1")                     ; log build commands
+       ,#~(list "V=1")                  ; log build commands
        #:phases
-       (modify-phases %standard-phases
-         (add-before 'bootstrap 'no-early-./configure
-           (lambda _
-             (setenv "NO_CONFIGURE" "yet"))))))
+       ,#~(modify-phases %standard-phases
+            (add-before 'bootstrap 'no-early-./configure
+              (lambda _
+                (setenv "NO_CONFIGURE" "yet"))))))
     (native-inputs
      (list autoconf
            autoconf-archive
-- 
2.30.2