[gnunet-scheme] 242/324: nse/client: Remove unused fields.

[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 e42cedac281d5f6b2117672c77ff7776e6c70a0b
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Sep 8 15:06:44 2021 +0200

    nse/client: Remove unused fields.
    
    * gnu/gnunet/nse/client.scm
      (<server>): Remove 'mq', 'config', 'connected-callback',
      'disconnected-callback' and 'estimate-update-callback'.
      (estimate): Adjust call to constructor appropriately.
---
 gnu/gnunet/nse/client.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/gnu/gnunet/nse/client.scm b/gnu/gnunet/nse/client.scm
index 17c16a3..194eaac 100644
--- a/gnu/gnunet/nse/client.scm
+++ b/gnu/gnunet/nse/client.scm
@@ -74,12 +74,7 @@
       (opaque #t))
 
     (define-record-type (<server> %make-server server?)
-      (fields (immutable estimate/box server-estimate/box) ; atomic box of 
flonum
-             (immutable mq nse-mq) ; message queue
-             (immutable config server-config)
-             (immutable connected-callback server-connected-callback)
-             (immutable disconnected-callback server-disconnected-callback)
-             (immutable estimate-update-callback server-update-callback)))
+      (fields (immutable estimate/box server-estimate/box))) ; atomic box of 
flonum
 
     (define (estimate server)
       "Return the current estimate of the number of peers on the network,
@@ -170,4 +165,4 @@ The procedures @var{updated}, @var{connected} and 
@var{disconnected} are optiona
           (values))))
       (define mq (connect/fibers config "nse" handlers error-handler
                                 #:spawn spawn))
-      (%make-server estimate/box mq config connected disconnected updated))))
+      (%make-server estimate/box))))

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