02/03: build: font-build-system: Do not return #t from phases.

[guix-commits]

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

commit 3d0e92de09a79a170e4c40cc44d1de62836669f7
Author: Arun Isaac <arunisaac@systemreboot.net>
AuthorDate: Sun Mar 20 15:03:24 2022 +0530

    build: font-build-system: Do not return #t from phases.
    
    * guix/build/font-build-system.scm (unpack, install): Do not return #t from
    phases.
---
 guix/build/font-build-system.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/guix/build/font-build-system.scm b/guix/build/font-build-system.scm
index 9bd9524a7d..e4784bc17d 100644
--- a/guix/build/font-build-system.scm
+++ b/guix/build/font-build-system.scm
@@ -41,8 +41,7 @@ archive, or a font file."
       (begin
         (mkdir "source")
         (chdir "source")
-        (copy-file source (strip-store-file-name source))
-        #t)
+        (copy-file source (strip-store-file-name source)))
       (gnu:unpack #:source source)))
 
 (define* (install #:key outputs #:allow-other-keys)
@@ -55,8 +54,7 @@ archive, or a font file."
     (for-each (cut install-file <> (string-append fonts "/opentype"))
               (find-files source "\\.(otf|otc)$"))
     (for-each (cut install-file <> (string-append fonts "/web"))
-              (find-files source "\\.(woff|woff2)$"))
-    #t))
+              (find-files source "\\.(woff|woff2)$"))))
 
 (define %standard-phases
   (modify-phases gnu:%standard-phases