Subject: [PATCH core-updates 02/65] gnu: acl: Remove labels and trailing #t.

From: Maxim Cournoyer <[email-masked]>
Date: Mon, 9 Oct 2023 12:28:40 -0400

* gnu/packages/acl.scm (acl): Remove labels and trailing #t.

Change-Id: I01b3d697da78ae1294b76d1073dbfd0ffe37fe31
---
 gnu/packages/acl.scm | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/acl.scm b/gnu/packages/acl.scm
index 3e97332243..6d78847680 100644
--- a/gnu/packages/acl.scm
+++ b/gnu/packages/acl.scm
@@ -66,13 +66,11 @@ (define-public acl
                (ftw "." (lambda (file stat flag)
                           (unless (<= early-1980 (stat:mtime stat))
                             (utime file early-1980 early-1980))
-                          #t))
-               #t)))
+                          #t)))))
          (add-after 'build 'patch-exec-bin-sh
            (lambda _
              (substitute* "test/run"
-               (("/bin/sh") (which "sh")))
-             #t))
+               (("/bin/sh") (which "sh")))))
          (add-before 'check 'patch-tests
            (lambda _
              ;; The coreutils do not have an ACL bit to remove from their
@@ -84,12 +82,9 @@ (define-public acl
              (substitute* "Makefile.in"
                ((".*test/misc\\.test.*") "")
                ((".*test/cp\\.test.*") "")
-               ((".*test/setfacl-X\\.test.*") ""))
-             #t)))))
+               ((".*test/setfacl-X\\.test.*") "")))))))
     (inputs (list attr))
-    (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("perl" ,perl)))
+    (native-inputs (list gettext-minimal perl))
     (home-page "https://savannah.nongnu.org/projects/acl")
     (synopsis
      "Library and tools for manipulating access control lists")
-- 
2.41.0