[gnunet-scheme] 10/42: server: Only accept a single 'state' 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 3d0891210d892ea9471df4eb3f5ea225c0d01384
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Sep 8 21:22:23 2022 +0200

    server: Only accept a single 'state' argument.
    
    Simplification!
    
    * gnu/gnunet/server.scm (run-loop): Adjust.
---
 gnu/gnunet/server.scm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/gnu/gnunet/server.scm b/gnu/gnunet/server.scm
index cf3ed04..5d681e2 100644
--- a/gnu/gnunet/server.scm
+++ b/gnu/gnunet/server.scm
@@ -55,7 +55,7 @@
          (only (ice-9 match)
                match)
          (only (guile)
-               lambda* define*))
+               lambda*))
   (begin
     ;; Define them here to avoid creating these objects multiple times.
     (define thunk-false (lambda () #false))
@@ -227,9 +227,9 @@ TODO: maybe 'lost'"
 
     ;; TODO: document, check types
     ;; 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 (run-loop state)
+      (define handlers ((loop:message-handlers-maker state) state))
+      (define error-handler ((loop:error-handler*-maker state) state))
       (define message-queue
        (connect/fibers (loop:configuration state) (loop:service-name state)
                        handlers error-handler
@@ -242,13 +242,13 @@ TODO: maybe 'lost'"
          ;; time something was found?
          (collect-lost-and-found-operation (loop:lost-and-found state))
          (lambda (lost) (cons 'lost lost)))))
-      (define (control* message state . rest)
+      (define (control* message state)
        ;; 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))
-      (define (control state . rest)
+       ((loop:control-message-handler state) message control control*
+        message-queue state))
+      (define (control state)
        "The main event loop."
-       (apply control* (perform-operation loop-operation) state rest))
-      (apply control state rest))))
+       (control* (perform-operation loop-operation) state))
+      (control state))))

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