01/02: gnu: Remove tegaki package leftovers.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit c2f47c968ea46051353a82af7cade23cb3b32219
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Thu Jan 5 12:38:23 2023 +0000

    gnu: Remove tegaki package leftovers.
    
    Leftovers from ed3c97f53ef5d60f103b93d15ccce5db052bfad1.
    
    * gnu/packages/languages.scm (tegaki-release-uri)
    (remove-pre-compiled-files)
    (remove-pre-compiled-files-modules): Delete variables.
    
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 gnu/packages/language.scm | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/gnu/packages/language.scm b/gnu/packages/language.scm
index 937954a1ad..b29ed9c013 100644
--- a/gnu/packages/language.scm
+++ b/gnu/packages/language.scm
@@ -835,29 +835,6 @@ string can be easily inferred by a human just by reading 
the identifier.")
 done by Gudrun Putze-Meier.")
     (license license:perl-license)))
 
-(define* (tegaki-release-uri proj version
-                             #:optional (ext "tar.gz"))
-  (string-append "https://github.com/tegaki/tegaki/releases/download";
-                 "/v" version "/" proj "-" version "." ext))
-
-(define remove-pre-compiled-files
-  (lambda exts
-    "Return snippet for removing pre-compiled files matching one of the
-extensions in EXTS."
-    `(begin (for-each delete-file
-                      (find-files "."
-                                  (lambda (name _)
-                                    (any (cut string-suffix? <> name)
-                                         (map (cut string-append "." <>)
-                                              ',exts)))))
-            #t)))
-
-;;; modules required for the above snippet
-(define remove-pre-compiled-files-modules
-  '((guix build utils)
-    (srfi srfi-1)
-    (srfi srfi-26)))
-
 (define-public link-grammar
   (package
     (name "link-grammar")