[gnunet-scheme] 122/324: netstruct: Pass index for u8 (zero).

[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 83a20735977fc03a4ee1be2ce32ceb03becb579d
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat May 29 22:29:05 2021 +0200

    netstruct: Pass index for u8 (zero).
    
    Tests will be added later!
    
    * gnu/gnunet/netstruct/procedural.scm
      (u8): Specialise slice-u8-ref and slice-u8-set! on index 0,
      as done for the other integers.
---
 gnu/gnunet/netstruct/procedural.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/gnunet/netstruct/procedural.scm 
b/gnu/gnunet/netstruct/procedural.scm
index d642437..3b531f8 100644
--- a/gnu/gnunet/netstruct/procedural.scm
+++ b/gnu/gnunet/netstruct/procedural.scm
@@ -403,7 +403,9 @@ accepting a bytevector slice and a value."
               (length slice-ref slice-set!) (name-big name-little))
             ...)))))
 
-    (define u8 (make-netprimitive 1 slice-u8-ref slice-u8-set!
+    (define u8 (make-netprimitive 1
+                                 (cut slice-u8-ref <> 0)
+                                 (cut slice-u8-set! <> 0 <>)
                                  #:properties '((integer-type . unsigned))))
 
     (define-unsigned-N-bytes*

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