[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 26/42: server: Inline single-use server->loop-arguments.
From: |
gnunet |
Subject: |
[gnunet-scheme] 26/42: server: Inline single-use server->loop-arguments. |
Date: |
Sat, 10 Sep 2022 19:08:19 +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 bc966ca104d4e97038a91f84b806c726a8041021
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Sep 9 17:37:46 2022 +0200
server: Inline single-use server->loop-arguments.
---
gnu/gnunet/server.scm | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/gnu/gnunet/server.scm b/gnu/gnunet/server.scm
index 1cf5850..ab144a9 100644
--- a/gnu/gnunet/server.scm
+++ b/gnu/gnunet/server.scm
@@ -25,7 +25,7 @@
<server> server-terminal-condition server-control-channel
make-disconnect!
handle-control-message!
- <loop> make-loop server->loop-arguments
+ <loop> make-loop
loop:connected loop:disconnected loop:terminal-condition
loop:control-channel loop:configuration loop:service-name
loop:spawner loop:lost-and-found run-loop spawn-server-loop)
@@ -200,11 +200,6 @@ asynchronuous request; it won't be fulfilled immediately."
spawn terminal-condition control-channel
lost-and-found connected disconnected)))))
- (define (server->loop-arguments server)
- (list #:terminal-condition (server-terminal-condition server)
- #:control-channel (server-control-channel server)
- #:lost-and-found (losable-lost-and-found server)))
-
(define (handle-control-message! message mq terminal-condition
k/reconnect!)
"The following messages are handled:
@@ -269,7 +264,11 @@ TODO: maybe 'lost'"
(initial-extra-loop-arguments '())
(spawn spawn-fiber) #:allow-other-keys #:rest r)
"[TODO] and return @var{server}"
- (define loop-arguments (append r (server->loop-arguments server)))
+ (define loop-arguments
+ (append (list #:terminal-condition (server-terminal-condition server)
+ #:control-channel (server-control-channel server)
+ #:lost-and-found (losable-lost-and-found server))
+ r))
(spawn (lambda ()
(apply run-loop (apply make-loop loop-arguments)
initial-extra-loop-arguments)))
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.
- [gnunet-scheme] 13/42: dht/client: Rewrite in terms of (gnu gnunet server)., (continued)
- [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, 2022/09/10
- [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 <=
- [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
- [gnunet-scheme] 32/42: server: Add type checking to make-loop., gnunet, 2022/09/10
- [gnunet-scheme] 36/42: doc/concurrency: Add missing label for lost-and-found., gnunet, 2022/09/10
- [gnunet-scheme] 39/42: server: Add type checking., gnunet, 2022/09/10
- [gnunet-scheme] 35/42: doc/service-communication: Document #:control-message-handler., gnunet, 2022/09/10
- [gnunet-scheme] 37/42: doc/service-communication: Document run-loop., gnunet, 2022/09/10
- [gnunet-scheme] 34/42: server: Rename control -> continue., gnunet, 2022/09/10