51/62: gnu: procps: Use G-expressions.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit a00a3eb1cf97c156756244e29d1276e062d2b791
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sun Jun 26 11:16:52 2022 +0200

    gnu: procps: Use G-expressions.
    
    * gnu/packages/linux.scm (procps)[arguments]: Convert to gexp.
---
 gnu/packages/linux.scm | 41 +++++++++++++++++++----------------------
 1 file changed, 19 insertions(+), 22 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 5db85bb61f..6c04b4baec 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -2077,28 +2077,25 @@ parameters.")
                 "04v5q5cshzyhbwaw4n9l0k8faaz67n11z31vpfaiqynv9rwr4k8g"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:modules ((guix build utils)
-                  (guix build gnu-build-system)
-                  (srfi srfi-1)
-                  (srfi srfi-26))
-       ,@(if (%current-target-system)
-             '(#:configure-flags
-               (list
-                "ac_cv_func_malloc_0_nonnull=yes"
-                "ac_cv_func_realloc_0_nonnull=yes"))
-             '())
-       #:phases
-       (modify-phases %standard-phases
-         (add-after
-          'install 'post-install
-          ;; Remove commands and man pages redudant with
-          ;; Coreutils.
-          (lambda* (#:key outputs #:allow-other-keys)
-            (let* ((out (assoc-ref outputs "out"))
-                   (dup (append-map (cut find-files out <>)
-                                    '("^kill" "^uptime"))))
-              (for-each delete-file dup)
-              #t))))))
+     (list #:modules '((guix build utils)
+                       (guix build gnu-build-system)
+                       (srfi srfi-1)
+                       (srfi srfi-26))
+           #:configure-flags
+           (if (%current-target-system)
+               #~'("ac_cv_func_malloc_0_nonnull=yes"
+                   "ac_cv_func_realloc_0_nonnull=yes")
+               #~'())
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'post-install
+                 ;; Remove commands and man pages redudant with
+                 ;; Coreutils.
+                 (lambda* (#:key outputs #:allow-other-keys)
+                   (let* ((out #$output)
+                          (dup (append-map (cut find-files out <>)
+                                           '("^kill" "^uptime"))))
+                     (for-each delete-file dup)))))))
     (inputs (list ncurses))
     (home-page "https://gitlab.com/procps-ng/procps/";)
     (synopsis "Utilities that give information about processes")