04/19: gnu: uncrustify: use new style and gexp.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c0bfa12666cc6dc706981c76b9ee5c7f9006932d
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Wed Sep 6 18:51:09 2023 +0800

    gnu: uncrustify: use new style and gexp.
    
    * gnu/packages/code.scm (uncrustify): use new style and gexp.
    [native-inputs]: remove label.
    [arguments]: use gexp and remove tail #t.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/code.scm | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm
index a9e94dab25..b716f32599 100644
--- a/gnu/packages/code.scm
+++ b/gnu/packages/code.scm
@@ -805,20 +805,18 @@ independent targets.")
                (base32
                 "17x9p5pqgzjchi9xhskp4kq7ag4chmsgbkvwym5m2b9zwm6qykpm"))))
     (build-system cmake-build-system)
-    (native-inputs
-     `(("python" ,python-wrapper)))
+    (native-inputs (list python-wrapper))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'unpack-etc
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             ;; Configuration samples are not installed by default.
-             (let* ((output (assoc-ref outputs "out"))
-                    (etcdir (string-append output "/etc")))
-               (for-each (lambda (l)
-                           (install-file l etcdir))
-                         (find-files "etc" "\\.cfg$")))
-             #t)))))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'unpack-etc
+                 (lambda* (#:key inputs outputs #:allow-other-keys)
+                   ;; Configuration samples are not installed by default.
+                   (let* ((output (assoc-ref outputs "out"))
+                          (etcdir (string-append output "/etc")))
+                     (for-each (lambda (l)
+                                 (install-file l etcdir))
+                               (find-files "etc" "\\.cfg$"))))))))
     (home-page "https://uncrustify.sourceforge.net/";)
     (synopsis "Code formatter for C and other related languages")
     (description