guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

06/10: gnu: oneko: Remove trailing #t from phases.


From: guix-commits
Subject: 06/10: gnu: oneko: Remove trailing #t from phases.
Date: Fri, 10 Jun 2022 22:26:16 -0400 (EDT)

nckx pushed a commit to branch master
in repository guix.

commit a7255dd13fb6ecb382588ab0c45ffe52a01a9edb
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jun 5 02:00:04 2022 +0200

    gnu: oneko: Remove trailing #t from phases.
    
    * gnu/packages/toys.scm (oneko)[source]: Don't explicitly return #t from 
snippet…
    [arguments]: …nor from phases.
---
 gnu/packages/toys.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/toys.scm b/gnu/packages/toys.scm
index 09426fe6fa..d80c37d5fb 100644
--- a/gnu/packages/toys.scm
+++ b/gnu/packages/toys.scm
@@ -57,8 +57,7 @@
            (for-each delete-file-recursively
                      (cons* "bitmaps/bsd" "bitmaps/sakura" "bitmaps/tomoyo"
                             "bitmasks/bsd" "bitmasks/sakura" "bitmasks/tomoyo"
-                            (find-files "cursors" "(bsd|card|petal).*\\.xbm")))
-           #t))))
+                            (find-files "cursors" 
"(bsd|card|petal).*\\.xbm")))))))
     (build-system gnu-build-system)
     (native-inputs
      (list imake))
@@ -73,8 +72,7 @@
              (invoke "xmkmf")
              ;; Fix incorrectly generated compiler flags.
              (substitute* "Makefile"
-               (("(CDEBUGFLAGS = ).*" _ front) (string-append front "-O2\n")))
-             #t))
+               (("(CDEBUGFLAGS = ).*" _ front) (string-append front 
"-O2\n")))))
          (replace 'install
            (lambda* (#:key outputs make-flags #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -89,8 +87,7 @@
                (copy-file "oneko.man" (string-append man6 "/oneko.6"))
                (copy-file "oneko.man.jp" (string-append man6-ja "/oneko.6"))
                (for-each (lambda (file) (install-file file doc))
-                         (find-files "." "README.*")))
-             #t)))))
+                         (find-files "." "README.*"))))))))
     (home-page "http://www.daidouji.com/oneko/";)
     (synopsis "Cute cat chasing your mouse pointer")
     (description "Displays a cat or another animated character that chases the



reply via email to

[Prev in Thread] Current Thread [Next in Thread]