02/05: gnu: di: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit adf097908c204ded0c7847f1061c486b92d7d0e1
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jul 2 02:00:03 2023 +0200

    gnu: di: Use G-expressions.
    
    * gnu/packages/admin.scm (di)[arguments]: Rewrite as G-expressions.
    Rename 'setup-environment phase to 'override-environment.
---
 gnu/packages/admin.scm | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 7eb04a058f..ff3eee5127 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -3553,15 +3553,17 @@ a new command using the matched rule, and runs it.")
         (base32 "07vsnn1gxm3r7dchbrq63iazd64gza2ac7b2m1039708rf5flxdp"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f                      ; obscure test failures
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)            ; no configure script
-         (add-before 'build 'setup-environment
-           (lambda* (#:key outputs #:allow-other-keys)
-             (setenv "CC" ,(cc-for-target))
-             (setenv "prefix" (assoc-ref outputs "out")))))
-       #:make-flags (list "--environment-overrides")))
+     (list
+      #:tests? #f                       ; obscure test failures
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)           ; no configure script
+          (add-before 'build 'override-environment
+            (lambda _
+              (setenv "CC" #$(cc-for-target))
+              (setenv "prefix" #$output))))
+      #:make-flags
+      #~(list "--environment-overrides")))
     (home-page "https://gentoo.com/di/";)
     (synopsis "Advanced df like disk information utility")
     (description