From 24b2b5f99a44c390486c7158f4f4d84f63149f24 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 2 Mar 2021 22:18:08 +0100 Subject: [PATCH] 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 648c359621..9de7feb644 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 . Fetch the public key of the issuer of SIG from KEYRING,