[gnunet-scheme] 19/42: cadet/client: Minimise imports.

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

    cadet/client: Minimise imports.
---
 gnu/gnunet/cadet/client.scm | 18 ++++--------------
 1 file changed, 4 insertions(+), 14 deletions(-)

diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
index f599637..f78cf94 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -53,8 +53,7 @@
          (only (gnu gnunet crypto struct)
                /peer-identity)
          (only (gnu gnunet concurrency lost-and-found)
-               make-lost-and-found collect-lost-and-found-operation
-               losable-lost-and-found)
+               losable-lost-and-found)
          (only (gnu gnunet mq handler)
                message-handlers message-handler)
          (only (gnu gnunet mq)
@@ -66,19 +65,15 @@
                maybe-ask* answer
                maybe-send-control-message!
                maybe-send-control-message!*
-               make-error-handler
                make-disconnect!
                server-terminal-condition
                server-control-channel
                handle-control-message!
                make-loop run-loop server->loop-arguments loop:control-channel
-               loop:lost-and-found loop:terminal-condition loop:configuration
-               loop:spawner loop:connected loop:disconnected
-               make-error-handler*/loop)
+               loop:terminal-condition make-error-handler*/loop)
          (only (gnu gnunet hashcode struct)
                /hashcode:512)
          (only (gnu gnunet message protocols) message-type)
-         (only (gnu gnunet mq-impl stream) connect/fibers)
          (only (gnu gnunet mq)
                make-message-queue inject-message!)
          (only (gnu gnunet netstruct syntactic)
@@ -93,9 +88,9 @@
          (only (rnrs base)
                begin define lambda assert quote cons apply values
                case else = define-syntax + expt - let and >
-               not if eq? <)
+               not if <)
          (only (rnrs control)
-               when unless)
+               when)
          (only (pfds bbtrees)
                bbtree-set  make-bbtree bbtree-ref)
          (only (rnrs records syntactic) define-record-type)
@@ -103,11 +98,6 @@
          (only (ice-9 match) match)
          (only (guile) define* error)
          (only (fibers) spawn-fiber)
-         (only (fibers channels) get-operation put-operation make-channel)
-         (only (fibers conditions) make-condition wait-operation
-               signal-condition!)
-         (only (fibers operations)
-               wrap-operation choice-operation perform-operation)
          (only (srfi srfi-26)
                cut)
          (only (srfi srfi-45)

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