[gnunet-scheme] 04/07: hashcode: Correct constructors.

[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 081c4d1d8918c4391d61dc43b72f896cb8798f8a
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon Nov 21 09:56:20 2022 +0100

    hashcode: Correct constructors.
    
    * gnu/gnunet/hashcode.scm (make-hashcode:512/share): Call %make on
    field value.
    (make-hashcode:256/share): Likewise.
---
 gnu/gnunet/hashcode.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/hashcode.scm b/gnu/gnunet/hashcode.scm
index a70b890..a605d4e 100644
--- a/gnu/gnunet/hashcode.scm
+++ b/gnu/gnunet/hashcode.scm
@@ -48,7 +48,7 @@
 @code{/hashcode:512} bytevector slice).  @var{slice} may not be mutated
 while the constructed hashcode is in use."
         (assert (= (slice-length slice) hashcode:512-u8-length))
-        (slice/read-only slice)))))
+        (%make (slice/read-only slice))))))
 
   (define (make-hashcode:512 slice)
     "Make a hashcode, containing @var{slice} (a readable @code{/hashcode:512}
@@ -69,7 +69,7 @@ hashcode is in use."
 @code{/hashcode:256} bytevector slice).  @var{slice} may not be mutated
 while the constructed short hashcode is in use."
         (assert (= (slice-length slice) hashcode:256-u8-length))
-        (slice/read-only slice)))))
+        (%make (slice/read-only slice))))))
 
   (define (bv->hashcode:512 bv)
     "Read a hashcode from a bytevector (deprecated)."

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