doc: Document that (gnu gnunet nse client) reconnects.

* doc/scheme-gnunet.tm (Estimation of the size of the network):
  Document that the module will retry after a disconnect.

1 files changed, 6 insertions, 2 deletions

diff --git a/gnu/gnunet/nse/client.scm b/gnu/gnunet/nse/client.scm
index a9072ef..f19f06c 100644
--- a/gnu/gnunet/nse/client.scm
+++ b/gnu/gnunet/nse/client.scm
@@ -116,7 +116,7 @@ timestamp."
 
     ;; See 'connect'.
     (define* (reconnect estimate/box config #:key updated connected disconnected
-                        (spawn spawn-fiber))
+                        (spawn spawn-fiber) #:rest rest)
       (define (handle-estimate! estimate-slice)
         (define estimate
           (%make-estimate
@@ -157,8 +157,12 @@ timestamp."
           ;; TODO this means the server has closed the connection ...
           ;; ---> reconnect?
           ((input:regular-end-of-file input:premature-end-of-file)
+           ;; Call 'reconnect' after 'disconnected'.  Otherwise,
+           ;; it is possible that 'connected' is called twice without
+           ;; a call to 'disconnected' in-between, which would presumably
+           ;; be confusing.
            (when disconnected (disconnected))
-           (values))))
+           (apply reconnect estimate/box config rest))))
       (define mq (connect/fibers config "nse" handlers error-handler
                                  #:spawn spawn))
       (signal-condition! mq-defined))