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.

1 files 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))))