[gnunet-scheme] 26/42: server: Inline single-use server->loop-arguments.

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