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.

1 files changed, 3 insertions, 0 deletions

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