08/08: gnu: mcelog: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit ca94157380b4ceb92f940f1d95c44e79b4521874
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Aug 14 02:00:01 2022 +0200

    gnu: mcelog: Use G-expressions.
    
    * gnu/packages/linux.scm (mcelog)[arguments]:
    Rewrite as G-expressions.
---
 gnu/packages/linux.scm | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 4bdfd0f5b2..2e017cd307 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -6683,16 +6683,18 @@ the @code{mce-inject} module loaded if it exists.")
              (("\"unknown\"") (string-append "\"v" ,version "\"")))))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases (modify-phases %standard-phases
-                  (delete 'configure))  ; no configure script
-       #:make-flags (let ((out (assoc-ref %outputs "out")))
-                      (list (string-append "CC=" ,(cc-for-target))
-                            (string-append "prefix=" out)
-                            (string-append "DOCDIR=" out "/share/doc/"
-                                           ,name "-" ,version)
-                            "etcprefix=$(DOCDIR)/examples"))
-       ;; The tests will only run as root on certain supported CPU models.
-       #:tests? #f))
+     (list
+      ;; The tests will only run as root on certain supported CPU models.
+      #:tests? #f
+      #:make-flags
+      #~(list (string-append "CC=" #$(cc-for-target))
+              (string-append "prefix=" #$output)
+              (string-append "DOCDIR=" #$output "/share/doc/"
+                             #$name "-" #$version)
+              "etcprefix=$(DOCDIR)/examples")
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure))))        ; no configure script
     (native-inputs
      (list python-wrapper))             ; to generate example mcelog.conf
     (supported-systems (list "i686-linux" "x86_64-linux"))