[gnunet-scheme] 121/324: netstruct: Correct argument order to slice-uN-set!.

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

    netstruct: Correct argument order to slice-uN-set!.
    
    The endianity was in an incorrect position, leading
    to a runtime error. Tests will be added in a follow-up
    patch.
    
    * gnu/gnunet/netstruct/procedural.scm
      (define-unsigned-N-bytes): Place the endianity before the
      number, in the call to slice-set!.
---
 gnu/gnunet/netstruct/procedural.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/netstruct/procedural.scm 
b/gnu/gnunet/netstruct/procedural.scm
index 7278f68..d642437 100644
--- a/gnu/gnunet/netstruct/procedural.scm
+++ b/gnu/gnunet/netstruct/procedural.scm
@@ -384,14 +384,14 @@ accepting a bytevector slice and a value."
               (unsigned-N-bytes
                length
                (cute slice-ref <> 0 (endianness big))
-               (cute slice-set! <> 0 (endianness big) <>)
+               (cute slice-set! <> 0 <> (endianness big))
                #:properties '((endianness . big)
                               (integer-type . unsigned))))
             (define name-little
               (unsigned-N-bytes
                length
                (cute slice-ref <> 0 (endianness little))
-               (cute slice-set! <> 0 (endianness little) <>)
+               (cute slice-set! <> 0 <> (endianness little))
                #:properties '((endianness . little)
                               (integer-type . unsigned))))))))
       (define-syntax define-unsigned-N-bytes*

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