gnunet-svn
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[gnunet-scheme] 08/08: utils/records: Raise &missing-capabilities except


From: gnunet
Subject: [gnunet-scheme] 08/08: utils/records: Raise &missing-capabilities exceptions.
Date: Thu, 02 Feb 2023 18:49:10 +0100

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 86e6038bb51f80d08427acfaff4c2b661e248188
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Feb 2 18:47:32 2023 +0100

    utils/records: Raise &missing-capabilities exceptions.
    
    Addressed a tests/distributed-hash-table.scm test failure.
    
    * gnu/gnunet/util/records.scm (process)[fields*]{predicate}: Remove
    'slice-readable?' check.
---
 gnu/gnunet/utils/records.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/gnunet/utils/records.scm b/gnu/gnunet/utils/records.scm
index a4cefd8..becf263 100644
--- a/gnu/gnunet/utils/records.scm
+++ b/gnu/gnunet/utils/records.scm
@@ -63,9 +63,10 @@
             (error "when #:read-only-slice-wrapper is set, #:unwrap must be 
defined"))
           `((,#'slice
              (#:getter . ,unwrap)
+             ;; Readability is checked by 'preprocess', to get a nice
+             ;; '&missing-capabilities' exception.
              (#:predicate . ,#`(lambda (s)
                                  (and (slice? s)
-                                      (slice-readable? s)
                                       (= (slice-length s)
                                          (sizeof #,network-structure '())))))
              (#:preprocess . ,#'slice/read-only)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]