[gnunet-scheme] 01/04: dht/client: Make 'get-path' and 'put-path' read-only (bugfix).

[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 2819b57c0fd160bba753e41e88559c14bd9d7ea8
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Jan 18 11:02:13 2022 +0000

    dht/client: Make 'get-path' and 'put-path' read-only (bugfix).
    
    * gnu/gnunet/dht/client.scm (datum->search-result): Call 'slice/read-only' 
on
      'get-path' and 'put-path' unless they are #false.
---
 gnu/gnunet/dht/client.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/gnunet/dht/client.scm b/gnu/gnunet/dht/client.scm
index 7a0669a..5a95d48 100644
--- a/gnu/gnunet/dht/client.scm
+++ b/gnu/gnunet/dht/client.scm
@@ -256,7 +256,9 @@ an object is a search result with the predicate 
@code{search-result?}. The
 optional keyword arguments @code{get-path} and @code{put-path} are currently
 undocumented and untested."
           ;; TODO: get-path and put-path
-          (%make (validate-datum datum) get-path put-path)))))
+          (%make (validate-datum datum)
+                 (and get-path (slice/read-only get-path))
+                 (and put-path (slice/read-only put-path)))))))
 
     (define (copy-search-result old)
       "Make a copy of the search result @var{old}, such that modifications to 
the

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