[gnunet-scheme] 05/08: hashcode: Define equality procedures.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 78f26c50b2cbde550061ad65ad82f1ddeb01d6a1
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Feb 1 15:35:26 2023 +0100

    hashcode: Define equality procedures.
    
    Will be used later, IIRC.  Documentation will have to wait until
    'cisw'.
    
    * gnu/gnunet/hashcode.scm (hashcode:512=?,hashcode:256=?): New
    procedures.
---
 gnu/gnunet/hashcode.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gnu/gnunet/hashcode.scm b/gnu/gnunet/hashcode.scm
index d1b9c6b..ec21cd5 100644
--- a/gnu/gnunet/hashcode.scm
+++ b/gnu/gnunet/hashcode.scm
@@ -23,6 +23,7 @@
   (export hashcode:512-bit-length hashcode:512-u8-length
           hashcode:256-bit-length hashcode:256-u8-length
           hashcode:512? hashcode:256?
+         hashcode:512=? hashcode:256=?
           make-hashcode:512/share make-hashcode:512
          make-hashcode:256/share make-hashcode:256
           hashcode:512->slice hashcode:256->slice
@@ -42,6 +43,7 @@
   ;; A 512-bit hashcode.  These are the default length for GNUnet,
   ;; using SHA-512.
   (define-record-type* (<hashcode:512> hashcode:512?)
+    #:equality hashcode:512=?
     #:network-structure /hashcode:512
     #:read-only-slice-wrapper #true
     #:unwrap hashcode:512->slice
@@ -58,6 +60,7 @@ going to be mutated while a hashcode will still be in use."))
   ;; A 256-bit hashcode.  Used under special conditions, like when space
   ;; is critical and security is not impacted by it.
   (define-record-type* (<hashcode:256> hashcode:256?)
+    #:equality hashcode:256=?
     #:network-structure /hashcode:256
     #:read-only-slice-wrapper #true
     #:unwrap hashcode:256->slice

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.