[gnunet-scheme] branch master updated: cadet/client: Unstub the message queue closer.

[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.

The following commit(s) were added to refs/heads/master by this push:
     new 5e90cd7  cadet/client: Unstub the message queue closer.
5e90cd7 is described below

commit 5e90cd718d45d45c6558fa6b0e7580e8d8964ef3
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Aug 28 18:00:33 2022 +0200

    cadet/client: Unstub the message queue closer.
    
    * gnu/gnunet/cadet/client.scm (open-channel!)[closer]: Rename to ...
    [close-channel!] ... this, and unstub.
---
 gnu/gnunet/cadet/client.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
index e759652..d22264c 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -487,12 +487,21 @@ received, it is passed to the appropriate handler."
       (assert (and (server:cadet? server) (cadet-address? address)))
       (define error-handler stub)
       (define sender (make-channel-sender (delay channel)))
-      (define closer stub)
+      (define close-channel!
+       (let ((terminal-condition (server-terminal-condition server))
+             (control (server-control-channel server)))
+         (lambda ()
+           ;; To keep channels garbage-collectable, use
+           ;; maybe-send-control-message!* instead of 
maybe-send-control-message!.
+           ;;
+           ;; TODO: add handler in control loop
+           (maybe-send-control-message!* terminal-condition
+                                         control 'close-channel! channel))))
       (define message-queue
        (make-message-queue handlers
                            error-handler
                            (make-channel-sender (delay channel))
-                           closer))
+                           close-channel!))
       (define channel (%make-channel server address 0 message-queue))
       (maybe-send-control-message! server 'open-channel! channel)
       channel)

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