[gnunet-scheme] 28/42: server: Inline primitive-disconnect!.

[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 c6e4c061dcfac45d07ca81dcc8ec4e52670b1423
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Sep 9 18:01:02 2022 +0200

    server: Inline primitive-disconnect!.
    
    It's only used in a single place.
---
 gnu/gnunet/server.scm | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

diff --git a/gnu/gnunet/server.scm b/gnu/gnunet/server.scm
index ab144a9..13be42d 100644
--- a/gnu/gnunet/server.scm
+++ b/gnu/gnunet/server.scm
@@ -149,22 +149,15 @@ The type of @var{answer-box} is an implementation detail."
                     (make-condition)
                     (make-channel))))))
 
-    (define (primitive-disconnect! server)
-      "Asynchronuously disconnect from the service and stop reconnecting,
-even if not connected.  This is an idempotent operation.  This is an
-asynchronuous request; it won't be fulfilled immediately.
-
-This maybe-sends @code{disconnect!} to the control channel."
-      (maybe-send-control-message! server 'disconnect!))
-
     (define (make-disconnect! name type?)
       ;; for backtrace purposes, 'lambda' is not used here.
       (define (disconnect! server)
        "Asynchronuously disconnect from the service and stop reconnecting,
 even if not connected.  This is an idempotent operation.  This is an
-asynchronuous request; it won't be fulfilled immediately."
+asynchronuous request; it won't be fulfilled immediately.  More technically,
+this maybe-sends @code{disconnect!} to the control channel."
        (if (type? server)
-           (primitive-disconnect! server)
+           (maybe-send-control-message! server 'disconnect!)
            (error 'disconnect! ; TODO: test
                   "wrong server object type"
                   (list name type? server))))

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