[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 25/42: server: Re-indent.
From: |
gnunet |
Subject: |
[gnunet-scheme] 25/42: server: Re-indent. |
Date: |
Sat, 10 Sep 2022 19:08:18 +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 485f8a8765af5c4a49717022825eddfd4afd15c1
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Sep 9 17:34:30 2022 +0200
server: Re-indent.
---
gnu/gnunet/server.scm | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/gnu/gnunet/server.scm b/gnu/gnunet/server.scm
index 425735e..1cf5850 100644
--- a/gnu/gnunet/server.scm
+++ b/gnu/gnunet/server.scm
@@ -241,11 +241,11 @@ TODO: maybe 'lost'"
;; state: <loop>
(define (run-loop state . rest)
(define handlers (apply (loop:message-handlers-maker state) state rest))
- (define error-handler (apply (loop:error-handler*-maker state) state
rest))
+ (define error-handler
+ (apply (loop:error-handler*-maker state) state rest))
(define message-queue
(connect/fibers (loop:configuration state) (loop:service-name state)
- handlers error-handler
- #:spawn (loop:spawner state)))
+ handlers error-handler #:spawn (loop:spawner state)))
(define loop-operation
(choice-operation
(get-operation (loop:control-channel state))
@@ -258,8 +258,8 @@ TODO: maybe 'lost'"
;; Let @var{control-message-handler} handle the message.
;; It can decide to continue with @var{control} or @var{control*},
;; in continuation-passing style.
- (apply (loop:control-message-handler state) message
- control control* message-queue state rest))
+ (apply (loop:control-message-handler state) message control control*
+ message-queue state rest))
(define (control state . rest)
"The main event loop."
(apply control* (perform-operation loop-operation) state rest))
@@ -267,10 +267,9 @@ TODO: maybe 'lost'"
(define* (spawn-server-loop server #:key (make-loop make-loop)
(initial-extra-loop-arguments '())
- (spawn spawn-fiber) #:allow-other-keys
- #:rest arguments)
+ (spawn spawn-fiber) #:allow-other-keys #:rest r)
"[TODO] and return @var{server}"
- (define loop-arguments (append arguments (server->loop-arguments
server)))
+ (define loop-arguments (append r (server->loop-arguments server)))
(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] 10/42: server: Only accept a single 'state' argument., (continued)
- [gnunet-scheme] 10/42: server: Only accept a single 'state' argument., gnunet, 2022/09/10
- [gnunet-scheme] 08/42: nse/client: Simplify state passing with a new subtype of <loop>., gnunet, 2022/09/10
- [gnunet-scheme] 03/42: dht/client: Extract message handlers., gnunet, 2022/09/10
- [gnunet-scheme] 04/42: dht/client: Eliminate mutation from the control loop., gnunet, 2022/09/10
- [gnunet-scheme] 07/42: server: Rename 'primitive-reconnect' to 'run-loop'., gnunet, 2022/09/10
- [gnunet-scheme] 14/42: server: Deduplicate make-error-handler*., gnunet, 2022/09/10
- [gnunet-scheme] 19/42: cadet/client: Minimise imports., gnunet, 2022/09/10
- [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 <=
- [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, 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