[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 28/42: server: Inline primitive-disconnect!.
From: |
gnunet |
Subject: |
[gnunet-scheme] 28/42: server: Inline primitive-disconnect!. |
Date: |
Sat, 10 Sep 2022 19:08:21 +0200 |
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.
- [gnunet-scheme] 21/42: server: Unify loop spawning., (continued)
- [gnunet-scheme] 21/42: server: Unify loop spawning., gnunet, 2022/09/10
- [gnunet-scheme] 29/42: doc/service-communication: Document <server>., gnunet, 2022/09/10
- [gnunet-scheme] 20/42: server: Add default arguments to 'make-loop'., gnunet, 2022/09/10
- [gnunet-scheme] 25/42: server: Re-indent., gnunet, 2022/09/10
- [gnunet-scheme] 31/42: doc/service-communication: Document spawn-server-loop., gnunet, 2022/09/10
- [gnunet-scheme] 11/42: dht: Use <loop> for state where possible., gnunet, 2022/09/10
- [gnunet-scheme] 13/42: dht/client: Rewrite in terms of (gnu gnunet server)., gnunet, 2022/09/10
- [gnunet-scheme] 12/42: Revert "server: Only accept a single 'state' argument.", gnunet, 2022/09/10
- [gnunet-scheme] 16/42: cadet/client: Avoid (mutating) hash tables., gnunet, 2022/09/10
- [gnunet-scheme] 05/42: dht/client: Bring API of reconnect mostly in line with (gnu gnunet server)., gnunet, 2022/09/10
- [gnunet-scheme] 28/42: server: Inline primitive-disconnect!.,
gnunet <=
- [gnunet-scheme] 15/42: server: New procedure for making the arguments to make-loop., gnunet, 2022/09/10
- [gnunet-scheme] 17/42: cadet/client: Use <loop> for various objects where possible., gnunet, 2022/09/10
- [gnunet-scheme] 27/42: cadet/client: Simplify more., gnunet, 2022/09/10
- [gnunet-scheme] 23/42: dht/client: Re-indent., gnunet, 2022/09/10
- [gnunet-scheme] 22/42: nse/indent: Re-indent., gnunet, 2022/09/10
- [gnunet-scheme] 26/42: server: Inline single-use server->loop-arguments., gnunet, 2022/09/10
- [gnunet-scheme] 24/42: cadet/client: Re-indent., gnunet, 2022/09/10
- [gnunet-scheme] 33/42: server: Document 'make-loop'., gnunet, 2022/09/10
- [gnunet-scheme] 30/42: doc/service-communication: Document the control loop., gnunet, 2022/09/10
- [gnunet-scheme] 18/42: cadet/client: Rewrite with run-loop., gnunet, 2022/09/10