[gnunet-scheme] 01/04: dht/client, server: Move maybe-send-control-message! to 'server'.

[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 447bda6f742d82d2aaea9c3c0f5f454ab245bddd
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Jul 27 14:28:30 2022 +0200

    dht/client, server: Move maybe-send-control-message! to 'server'.
    
    It is useful elsewhere as well.
    
    * gnu/gnunet/dht/client.scm (maybe-send-control-message!): Move to ...
    * gnu/gnunet/server.scm: ... here.
---
 gnu/gnunet/dht/client.scm | 8 +-------
 gnu/gnunet/server.scm     | 9 ++++++++-
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/gnu/gnunet/dht/client.scm b/gnu/gnunet/dht/client.scm
index 3db5863..7e6439d 100644
--- a/gnu/gnunet/dht/client.scm
+++ b/gnu/gnunet/dht/client.scm
@@ -79,7 +79,7 @@
          (gnu gnunet mq-impl stream)
          (gnu gnunet mq envelope)
          (only (gnu gnunet server)
-               maybe-send-control-message!* make-error-handler
+               maybe-send-control-message! make-error-handler
                <server> server-terminal-condition server-control-channel)
          (only (guile)
                pk define-syntax-rule define* lambda* error
@@ -593,12 +593,6 @@ currently unsupported."
                     ;; Any ‘small’ natural number will do.
                     (make-atomic-box 0))))))
 
-    (define (maybe-send-control-message! server . message)
-      "Send @var{message} to the control channel of @var{server}, or don't
-do anything if @var{server} has been permanently disconnected."
-      (apply maybe-send-control-message!* (server-terminal-condition server)
-            (server-control-channel server) message))
-
     (define-record-type (<get> %make-get get?)
       (parent <losable>)
       (fields (immutable server get:server)
diff --git a/gnu/gnunet/server.scm b/gnu/gnunet/server.scm
index c9d6698..23d0da7 100644
--- a/gnu/gnunet/server.scm
+++ b/gnu/gnunet/server.scm
@@ -18,7 +18,8 @@
 
 ;; TODO: document
 (define-library (gnu gnunet server)
-  (export maybe-send-control-message!* make-error-handler
+  (export maybe-send-control-message!* maybe-send-control-message!
+         make-error-handler
          <server> server-terminal-condition server-control-channel)
   (import (only (rnrs base)
                begin define case else apply values quote lambda)
@@ -47,6 +48,12 @@ This sends a @var{message} to @var{control-channel} or waits 
for
        (wait-operation terminal-condition)
        (put-operation control-channel message))))
 
+    (define (maybe-send-control-message! server . message)
+      "Send @var{message} to the control channel of @var{server}, or don't
+do anything if @var{server} has been permanently disconnected."
+      (apply maybe-send-control-message!* (server-terminal-condition server)
+            (server-control-channel server) message))
+
     (define (make-error-handler connected disconnected terminal-condition 
control-channel)
       (define (error-handler key . arguments)
        (case key

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