[gnunet-scheme] 01/03: dht/client: Correct 'get'->'search'.

[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 0d14f972a9a065756094ec028eded613919401f7
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon Feb 14 21:04:35 2022 +0000

    dht/client: Correct 'get'->'search'.
    
    * gnu/gnunet/dht/client.scm (stop-get!): Address unbound
      variable. Send a 'stop-search' instead of a stop-get!'.
      (reconnect)[control]<stop-get!>: Change to 'stop-search!'.
---
 gnu/gnunet/dht/client.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/dht/client.scm b/gnu/gnunet/dht/client.scm
index 8b74f43..e6ec21a 100644
--- a/gnu/gnunet/dht/client.scm
+++ b/gnu/gnunet/dht/client.scm
@@ -684,7 +684,7 @@ search result, using @lisp{copy-search-result}."
       "Cancel the get operation @var{search}.  This is an asynchronuous 
operation;
 it does not have an immediate effect.  This is an idempotent operation; 
cancelling
 a search twice does not have any additional effect."
-      (maybe-send-control-message! (get:server search) 'stop-get! get)
+      (maybe-send-control-message! (get:server search) 'stop-search! search)
       (values))
 
     (define* (put! server insertion #:key (confirmed values))
@@ -876,7 +876,7 @@ code automatically tries to reconnect, so @var{connected} 
can be called after
           (send-get! mq get)
           ;; Continue!
           (control))
-         (('stop-get! get)
+         (('stop-search! get)
           ;; TODO: tests!
           ;; TODO: racy!
           ;; TODO: cancel outstanding messages to the DHT services for this

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