[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 18/324: Fix variable references
From: |
gnunet |
Subject: |
[gnunet-scheme] 18/324: Fix variable references |
Date: |
Tue, 21 Sep 2021 13:20:58 +0200 |
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 073d0b1a14f2a5bb45892144740121b9be70f9ed
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon Nov 9 14:39:35 2020 +0100
Fix variable references
---
gnu/gnunet/metadata.scm | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/gnu/gnunet/metadata.scm b/gnu/gnunet/metadata.scm
index d8504d3..c7e8f22 100644
--- a/gnu/gnunet/metadata.scm
+++ b/gnu/gnunet/metadata.scm
@@ -71,7 +71,7 @@
(opaque #t)
(sealed #t))
- (define (meta-data-item-size item)
+ (define (meta-item-data-size item)
"How large is the @lisp{meta-item-data} of the <meta-item>
@var{item}? Expressed in bytes."
(bytevector-length (%meta-item-data item)))
@@ -170,8 +170,8 @@ meta data) name of extracting plugin
(assert (bytevector? data))
;; Figure out where to insert or set the meta data.
;; TODO: binary search instead of linear search
- (let ((items (meta-data-items data))
- (items-length (vector-length items)))
+ (let* ((items (meta-data-items data))
+ (items-length (vector-length items)))
(let loop ((i 0))
(cond ((or (>= i items-length)
(< (meta-item-data-size (vector-ref items i))))
@@ -191,17 +191,17 @@ meta data) name of extracting plugin
data))
;; If format and mime-type aren't changed,
;; just keep the old structure (freshness is not required).
- (let* ((item (vector-ref items i))
- (new-mime-type (or (meta-item-mime-type item)
+ (let* ((old-item (vector-ref items i))
+ (new-mime-type (or (meta-item-mime-type old-item)
data-mime-type))
- (old-format (meta-item-format item))
+ (old-format (meta-item-format old-item))
(new-format
(if (and (equal? old-format METAFORMAT_C_STRING)
(equal? format METAFORMAT_UTF8))
METAFORMAT_UTF8
old-format))
(new-item (%make-meta-item new-mime-type
- (meta-item-data item)
+ (%meta-item-data old-item)
meta-item-data
meta-item-format)))
(if (equal? old-item new-item)
@@ -363,7 +363,7 @@ TODO: perhaps a variant raising conditions may be more
informative."
cdata-bv
(+ mdata-offset
left
- plugin-data-length
+ plugin-name-length
-1)))))
#f)
;; FIXME plen or entry-data-length
@@ -404,7 +404,7 @@ TODO: perhaps a variant raising conditions may be more
informative."
format
mime-type-string
(bv-slice cdata-bv meta-data-offset
- entry-data-size))))
+ entry-data-length))))
(loop-metadata (+ i 1)
new-md
left))))))
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.
- [gnunet-scheme] 02/324: Define hashcodes, (continued)
- [gnunet-scheme] 02/324: Define hashcodes, gnunet, 2021/09/21
- [gnunet-scheme] 04/324: Define CHK URIs and parsing, gnunet, 2021/09/21
- [gnunet-scheme] 03/324: Define (de-)ASCIIification procedures for hash codes, gnunet, 2021/09/21
- [gnunet-scheme] 07/324: Fix some exports and imports, gnunet, 2021/09/21
- [gnunet-scheme] 01/324: New module: (gnu gnunet directory), gnunet, 2021/09/21
- [gnunet-scheme] 10/324: Define a few libextractor metaformats, gnunet, 2021/09/21
- [gnunet-scheme] 13/324: Include the plugin name in item meta-data, gnunet, 2021/09/21
- [gnunet-scheme] 08/324: Define libextractor metatypes, gnunet, 2021/09/21
- [gnunet-scheme] 06/324: Begin defining (gnu gnunet metadata), gnunet, 2021/09/21
- [gnunet-scheme] 14/324: Define a new binding construct, gnunet, 2021/09/21
- [gnunet-scheme] 18/324: Fix variable references,
gnunet <=
- [gnunet-scheme] 16/324: Define relevant serialised structures for metadata, gnunet, 2021/09/21
- [gnunet-scheme] 05/324: Correct dependencies in (gnu gnunet directory), gnunet, 2021/09/21
- [gnunet-scheme] 15/324: Define a meta data deserialisation procedure, gnunet, 2021/09/21
- [gnunet-scheme] 12/324: [guile-zlib] Bind the uncompress function, gnunet, 2021/09/21
- [gnunet-scheme] 22/324: Don't forget to pass the plugin name, gnunet, 2021/09/21
- [gnunet-scheme] 21/324: Fix typo, gnunet, 2021/09/21
- [gnunet-scheme] 19/324: Define a few missing functions, gnunet, 2021/09/21
- [gnunet-scheme] 27/324: Define bytevector slices, gnunet, 2021/09/21
- [gnunet-scheme] 09/324: Fix libextractor imports, gnunet, 2021/09/21
- [gnunet-scheme] 11/324: Fix some imports and exports, gnunet, 2021/09/21