[gnunet-scheme] 01/02: dht/client: Don't start a new fiber when reconnecting.

[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 9ce4a66d84eed75ffd0e8e214fa513ea0181cc66
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Feb 19 14:25:23 2022 +0000

    dht/client: Don't start a new fiber when reconnecting.
    
    This seems a little tidier.
    
    * gnu/gnunet/dht/client.scm (connect): Run 'reconnect' in a new fiber.
      (reconnect): Don't run 'control' in a new fiber'
---
 gnu/gnunet/dht/client.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/gnu/gnunet/dht/client.scm b/gnu/gnunet/dht/client.scm
index 1089424..60668e4 100644
--- a/gnu/gnunet/dht/client.scm
+++ b/gnu/gnunet/dht/client.scm
@@ -769,11 +769,13 @@ code automatically tries to reconnect, so @var{connected} 
can be called after
       (define old-id->operation-map (make-hash-table))
       (define control-channel (make-channel))
       (define lost-and-found (make-lost-and-found))
-      (reconnect terminal-condition config
-                old-id->operation-map control-channel lost-and-found
-                #:connected connected
-                #:disconnected disconnected
-                #:spawn spawn)
+      (spawn
+       (lambda ()
+        (reconnect terminal-condition config
+                   old-id->operation-map control-channel lost-and-found
+                   #:connected connected
+                   #:disconnected disconnected
+                   #:spawn spawn)))
       (%make-server terminal-condition control-channel lost-and-found
                    ;; Any ‘small’ exact natural number will do.
                    (make-atomic-box 0)))
@@ -1020,4 +1022,4 @@ operation is cancelled, return @code{#false} instead."
                  ((? server? server)
                   (control* '(disconnect!))))))))))
       ;; Start the main event loop.
-      (spawn control))))
+      (control))))

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