[gnunet-scheme] 09/42: server: Make #:message-queue a regular argument.

[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 fda9f6561402ba9a983da4838adcae0df6945eb0
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Sep 8 21:18:00 2022 +0200

    server: Make #:message-queue a regular argument.
    
    This removed all keyword arguments from the 'run-loop'.
    Should simplify things a little.
    
    * gnu/gnunet/server.scm (run-loop): See above.
    * gnu:gnunet/nse/client.scm (control-message-handler): Adjust
    appropriately.
---
 gnu/gnunet/nse/client.scm | 7 +++----
 gnu/gnunet/server.scm     | 4 ++--
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/gnu/gnunet/nse/client.scm b/gnu/gnunet/nse/client.scm
index 3df15eb..b77c32f 100644
--- a/gnu/gnunet/nse/client.scm
+++ b/gnu/gnunet/nse/client.scm
@@ -177,19 +177,18 @@ timestamp."
             (value->index (symbol-value message-type msg:nse:start)))
       (send-message! message-queue s))
 
-    (define* (control-message-handler message control control*
-                                     loop #:key message-queue)
+    (define (control-message-handler message control control* message-queue 
loop)
       (define (k/reconnect!)
        (run-loop loop))
       (match message
         (('resend-old-operations!)
         (send-start! message-queue)
-        (control loop #:message-queue message-queue)) ; continue
+        (control loop)) ; continue
        (('lost . _)
         ;; We lost ourselves, that means the server became unreachable.
         ;; The presence of this line is tested by the "garbage collectable"
         ;; test.
-        (control* '(disconnect!) loop #:message-queue message-queue))
+        (control* '(disconnect!) loop))
        (rest
         (handle-control-message! message message-queue
                                  (loop:terminal-condition loop) 
k/reconnect!))))
diff --git a/gnu/gnunet/server.scm b/gnu/gnunet/server.scm
index f50b7c1..cf3ed04 100644
--- a/gnu/gnunet/server.scm
+++ b/gnu/gnunet/server.scm
@@ -247,8 +247,8 @@ TODO: maybe 'lost'"
        ;; It can decide to continue with @var{control} or @var{control*},
        ;; in continuation-passing style.
        (apply (loop:control-message-handler state) message
-              control control* state rest))
+              control control* message-queue state rest))
       (define (control state . rest)
        "The main event loop."
        (apply control* (perform-operation loop-operation) state rest))
-      (apply control state #:message-queue message-queue rest))))
+      (apply control state rest))))

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.