[gnunet-scheme] 01/02: dht/client: Remove unused 'request-close-handler'.

[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 d62cdf135df225d0a1467a33d8ed9b2ca27aa45e
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Feb 2 21:25:43 2022 +0000

    dht/client: Remove unused 'request-close-handler'.
    
    * gnu/gnunet/dht/client.scm
      (reconnect)[mq-closed,request-close-handler]: Remove variables.
---
 gnu/gnunet/dht/client.scm | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/gnu/gnunet/dht/client.scm b/gnu/gnunet/dht/client.scm
index 8e6527d..fac95f9 100644
--- a/gnu/gnunet/dht/client.scm
+++ b/gnu/gnunet/dht/client.scm
@@ -763,7 +763,6 @@ even if not connected.  This is an idempotent operation."
                 ;; TODO: wrong type (maybe a put handle?).
                 TODO-error-reporting/2)))))
       ;; TODO: abstract duplication in (gnu gnunet nse client)
-      (define mq-closed (make-condition))
       (define mq-defined (make-condition))
       (define (error-handler error . arguments)
        (case error
@@ -783,7 +782,6 @@ even if not connected.  This is an idempotent operation."
           (values))
          ;; TODO: signal (and wait for) current fibers to stop?
          ((input:regular-end-of-file input:premature-end-of-file)
-          (signal-condition! mq-closed)
           (unless (atomic-box-ref request-close?/box)
             (apply reconnect
                    request-close?/box request-close-condition
@@ -795,13 +793,6 @@ even if not connected.  This is an idempotent operation."
          (else
           (apply report-error error arguments)
           (close-queue! mq))))
-      (define (request-close-handler)
-       (perform-operation
-        (choice-operation
-         (wait-operation request-close-condition)
-         ;; Make sure the fiber exits after a reconnect.
-         (wait-operation mq-closed)))
-       (close-queue! mq))
       (define mq (connect/fibers config "dht" handlers error-handler
                                 #:spawn spawn))
       (signal-condition! mq-defined)

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