[gnunet-scheme] 25/42: server: Re-indent.

[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 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.