[gnunet-scheme] 84/324: utils: correct definition of unsigned integers

[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 a4422db6e74d2eaeff1054547ce6bf1274aa310c
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Feb 21 10:29:24 2021 +0100

    utils: correct definition of unsigned integers
    
    * gnu/gnunet/utils/netstruct.scm
      (define-unsigned-N-bytes): pass the index to slice-ref and
      slice-set!, and use slice-ref and slice-set! instead of
      slice-u8-ref and slice-u8-set!
      (u32/big, u32/little, u64/big, u64/little): use correct slice-ref
      procedure.
---
 gnu/gnunet/utils/netstruct.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gnu/gnunet/utils/netstruct.scm b/gnu/gnunet/utils/netstruct.scm
index 913e064..35f317d 100644
--- a/gnu/gnunet/utils/netstruct.scm
+++ b/gnu/gnunet/utils/netstruct.scm
@@ -1,5 +1,5 @@
 ;;   This file is part of scheme-GNUnet, a partial Scheme port of GNUnet.
-;;   Copyright (C) 2020 Maxime Devos <maxime.devos@student.kuleuven.be>
+;;   Copyright (C) 2020, 2021 Maxime Devos <maxime.devos@student.kuleuven.be>
 ;;
 ;;   scheme-GNUnet is free software: you can redistribute it and/or modify it
 ;;   under the terms of the GNU Affero General Public License as published
@@ -127,20 +127,20 @@
           (define-syntax name-big
             (unsigned-N-bytes
              length
-             (cute slice-u8-ref <> <> (endianness big))
-             (cute slice-u8-set! <> <> (endianness big) <>)))
+             (cute slice-ref <> 0 (endianness big))
+             (cute slice-set! <> 0 (endianness big) <>)))
           (define-syntax name-little
             (unsigned-N-bytes
              length
-             (cute slice-u8-ref <> <> (endianness little))
-             (cute slice-u8-set! <> <> (endianness little) <>))))
+             (cute slice-ref <> 0 (endianness little))
+             (cute slice-set! <> 0 (endianness little) <>))))
         ...))))
 
   (define-syntax u8  (unsigned-N-bytes 1 slice-u8-ref slice-u8-set!))
   (define-unsigned-N-bytes
     ((2 slice-u16-ref slice-u16-set!) (u16/big u16/little))
-    ((4 slice-u32-ref slice-u64-set!) (u32/big u32/little))
-    ((8 slice-u32-ref slice-u64-set!) (u64/big u64/little)))
+    ((4 slice-u32-ref slice-u32-set!) (u32/big u32/little))
+    ((8 slice-u64-ref slice-u64-set!) (u64/big u64/little)))
 
   ;; FIXME ideally field names would be symbols,
   ;; not strings, but I can't get this to work

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