[gnunet-scheme] 20/42: server: Add default arguments to 'make-loop'.

[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 37668b828a663de535b25b5f72ea848657d49f3d
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Sep 9 16:31:58 2022 +0200

    server: Add default arguments to 'make-loop'.
    
    * gnu/gnunet/server.scm (make-loop): Give 'spawn', 'connected',
    'disconnected' and 'make-error-handler*' a default value.
    * gnu/gnunet/dht/client.scm (connect)[loop]: Simplify, making use of
    new 'make-loop' behaviour.
    * gnu/gnunet/cadet/client.scm (connect)[loop]: Likewise.
    * gnu/gnunet/nse/client.scm (connect)[loop]: Likewise.
---
 gnu/gnunet/cadet/client.scm | 3 +--
 gnu/gnunet/dht/client.scm   | 3 +--
 gnu/gnunet/nse/client.scm   | 2 --
 gnu/gnunet/server.scm       | 8 +++++---
 4 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
index f78cf94..7de91fb 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -70,7 +70,7 @@
                server-control-channel
                handle-control-message!
                make-loop run-loop server->loop-arguments loop:control-channel
-               loop:terminal-condition make-error-handler*/loop)
+               loop:terminal-condition)
          (only (gnu gnunet hashcode struct)
                /hashcode:512)
          (only (gnu gnunet message protocols) message-type)
@@ -156,7 +156,6 @@
       (define loop
        (apply make-loop
               #:make-message-handlers make-message-handlers
-              #:make-error-handler* make-error-handler*/loop
               #:control-message-handler control-message-handler
               #:service-name "cadet"
               #:configuration config
diff --git a/gnu/gnunet/dht/client.scm b/gnu/gnunet/dht/client.scm
index 7b25a65..bd0feb4 100644
--- a/gnu/gnunet/dht/client.scm
+++ b/gnu/gnunet/dht/client.scm
@@ -81,7 +81,7 @@
          (gnu gnunet mq envelope)
          (only (gnu gnunet server)
                maybe-send-control-message! maybe-send-control-message!*
-               make-error-handler*/loop maybe-ask* answer
+               maybe-ask* answer
                <server> server-terminal-condition server-control-channel
                make-disconnect! handle-control-message!
                make-loop loop:control-channel loop:connected
@@ -756,7 +756,6 @@ code automatically tries to reconnect, so @var{connected} 
can be called after
       (define loop
        (apply make-loop
               #:make-message-handlers make-message-handlers
-              #:make-error-handler* make-error-handler*/loop
               #:control-message-handler control-message-handler
               #:configuration config
               #:service-name "dht"
diff --git a/gnu/gnunet/nse/client.scm b/gnu/gnunet/nse/client.scm
index 3eca4a8..0cc4300 100644
--- a/gnu/gnunet/nse/client.scm
+++ b/gnu/gnunet/nse/client.scm
@@ -68,7 +68,6 @@
                <server> make-disconnect!
                server-terminal-condition
                server-control-channel
-               make-error-handler*/loop
                handle-control-message!
                <loop> run-loop server->loop-arguments
                loop:connected loop:disconnected
@@ -205,7 +204,6 @@ The procedures @var{updated}, @var{connected} and 
@var{disconnected} are optiona
       (define loop
        (apply make-loop:nse
               #:make-message-handlers make-message-handlers
-              #:make-error-handler* make-error-handler*/loop
               #:control-message-handler control-message-handler
               #:service-name "nse"
               #:configuration config
diff --git a/gnu/gnunet/server.scm b/gnu/gnunet/server.scm
index d169813..2dbace8 100644
--- a/gnu/gnunet/server.scm
+++ b/gnu/gnunet/server.scm
@@ -189,9 +189,11 @@ asynchronuous request; it won't be fulfilled immediately."
       (protocol
        (lambda (%make)
         (lambda* (#:key service-name control-message-handler
-                  make-message-handlers make-error-handler* configuration
-                  (spawn spawn-fiber) terminal-condition control-channel
-                  lost-and-found connected disconnected
+                  make-message-handlers
+                  (make-error-handler* make-error-handler*/loop)
+                  configuration (spawn spawn-fiber) terminal-condition
+                  control-channel lost-and-found (connected values)
+                  (disconnected values)
                   #:allow-other-keys)
          (%make service-name control-message-handler
                 make-message-handlers make-error-handler* configuration

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