From 2d3bec89b5f7d4dcdfc78a404a06d27639eec83d Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Wed, 12 Jan 2022 12:42:12 +0200
Subject: gnu: tree: Rewrite with gexps.

* gnu/packages/admin.scm (tree)[arguments]: Rewrite with gexps.
---
 gnu/packages/admin.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'gnu/packages')

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 6289b89e9a..f11374a439 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -2405,11 +2405,14 @@ recover lost partitions and/or make non-booting disks bootable again.")
                (base32 "0f92vx6gpz7v29wi9clklzah57v7lgx5kv0m1w4b9xjc35d9qcz3"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases (modify-phases %standard-phases (delete 'configure))
-       #:tests? #f                      ; no check target
-       #:make-flags (let ((out (assoc-ref %outputs "out")))
-                               (list (string-append "PREFIX=" out)
-                                     (string-append "CC=" ,(cc-for-target))))))
+     (list
+       #:phases
+       #~(modify-phases %standard-phases
+           (delete 'configure))         ; No configure script.
+       #:tests? #f                      ; No check target.
+       #:make-flags
+       #~(list (string-append "PREFIX=" #$output)
+               (string-append "CC=" #$(cc-for-target)))))
     (synopsis "Recursively list the contents of a directory")
     (description
      "Tree is a recursive directory listing command that produces a depth
-- 
cgit v1.2.3