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.

1 files changed, 1 insertions, 2 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