09/09: openpgp: Remove now unnecessary procedure.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 24b2b5f99a44c390486c7158f4f4d84f63149f24
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Mar 2 22:18:08 2021 +0100

    openpgp: Remove now unnecessary procedure.
    
    * guix/openpgp.scm (hash-algorithm-name): Remove.  This procedure has
    been provided by Guile-Gcrypt since 0.3.0.
---
 guix/openpgp.scm | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/guix/openpgp.scm b/guix/openpgp.scm
index 648c359..9de7feb 100644
--- a/guix/openpgp.scm
+++ b/guix/openpgp.scm
@@ -538,17 +538,6 @@ signature."
            (raise (condition
                    (&openpgp-invalid-signature-error (port port))))))))
 
-(define (hash-algorithm-name algorithm)        ;XXX: should be in Guile-Gcrypt
-  "Return the name of ALGORITHM, a 'hash-algorithm' integer, as a symbol."
-  (letrec-syntax ((->name (syntax-rules ()
-                            ((_) #f)
-                            ((_ name rest ...)
-                             (if (= algorithm (hash-algorithm name))
-                                 'name
-                                 (->name rest ...))))))
-    (->name sha1 sha256 sha384 sha512 sha224
-            sha3-224 sha3-256 sha3-384 sha3-512)))
-
 (define (verify-openpgp-signature sig keyring dataport)
   "Verify that the data read from DATAPORT matches SIG, an
 <openpgp-signature>.  Fetch the public key of the issuer of SIG from KEYRING,