Subject: [bug#50905] [PATCH 26/38] gnu: at-spi2-core: Remove trailing #t.

From: Maxime Devos <[email-masked]>
Date: Thu, 30 Sep 2021 00:19:26 +0200

* gnu/packages/gtk.scm (at-spi2-core)[arguments]<#:phases>:
  Remove trailing #t.
---
 gnu/packages/gtk.scm | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 634a0125d8..842a46a846 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -734,12 +734,11 @@ scaled, composited, modified, saved, or rendered.")
              ;; Ensure that the cross-references point to the "doc" output.
              (substitute* "doc/libatspi/meson.build"
                (("docpath =.*")
-                (string-append "docpath = '" (assoc-ref outputs "doc") "/share/gtk-doc/html'\n")))
-             #t))
+                (string-append "docpath = '" (assoc-ref outputs "doc")
+                               "/share/gtk-doc/html'\n")))))
          (add-before 'install 'prepare-doc-directory
            (lambda* (#:key outputs #:allow-other-keys)
-             (mkdir-p (string-append (assoc-ref outputs "doc") "/share"))
-             #t))
+             (mkdir-p (string-append (assoc-ref outputs "doc") "/share"))))
          (add-after 'unpack 'patch-docbook-sgml
            (lambda* (#:key native-inputs inputs #:allow-other-keys)
              (let* ((xmldoc
@@ -748,8 +747,7 @@ scaled, composited, modified, saved, or rendered.")
                                     "/xml/dtd/docbook")))
                (substitute* "doc/libatspi/libatspi-docs.sgml"
                  (("http://.*/docbookx\\.dtd")
-                  (string-append xmldoc "/docbookx.dtd")))
-               #t)))
+                  (string-append xmldoc "/docbookx.dtd"))))))
          ,@(if (%current-target-system)
                '()
                '((add-after 'install 'move-documentation
@@ -760,8 +758,7 @@ scaled, composited, modified, saved, or rendered.")
                         (string-append out "/share/gtk-doc")
                         (string-append doc "/share/gtk-doc"))
                        (delete-file-recursively
-                        (string-append out "/share/gtk-doc")))
-                     #t))))
+                        (string-append out "/share/gtk-doc")))))))
          (add-after 'install 'check
            (lambda* (#:key tests? #:allow-other-keys)
              (setenv "HOME" (getenv "TMPDIR")) ; xfconfd requires a writable HOME
-- 
2.33.0