[gnunet-scheme] 07/42: server: Rename 'primitive-reconnect' to 'run-loop'.

[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 6a6291859e62f956137d850488eea55ff8d5b3b3
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Sep 8 21:01:58 2022 +0200

    server: Rename 'primitive-reconnect' to 'run-loop'.
    
    Seems more fitting to me.
    
    * gnu/gnunet/server.scm (primitive-reconnect): Rename to ...
    (run-loop): ... this.
    * gnu/gnunet/nse/client.scm
    (control-message-handler)[k/reconnect!]: Adjust to new name.
    (spawn-procedure): Likewise.
---
 gnu/gnunet/nse/client.scm | 7 +++----
 gnu/gnunet/server.scm     | 4 ++--
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/gnu/gnunet/nse/client.scm b/gnu/gnunet/nse/client.scm
index 07d5baa..fea7b72 100644
--- a/gnu/gnunet/nse/client.scm
+++ b/gnu/gnunet/nse/client.scm
@@ -70,8 +70,7 @@
                server-control-channel
                make-error-handler
                handle-control-message!
-               primitive-reconnect
-               make-loop
+               make-loop run-loop
                loop:connected loop:disconnected
                loop:control-channel loop:terminal-condition)
           (only (gnu gnunet nse struct)
@@ -177,7 +176,7 @@ timestamp."
                                      #:allow-other-keys
                                      #:rest rest)
       (define (k/reconnect!)
-       (primitive-reconnect loop #:updated updated #:estimate/box 
estimate/box))
+       (run-loop loop #:updated updated #:estimate/box estimate/box))
       (match message
         (('resend-old-operations!)
         (send-start! message-queue)
@@ -223,4 +222,4 @@ The procedures @var{updated}, @var{connected} and 
@var{disconnected} are optiona
       server)
 
     (define (spawn-procedure spawn . rest)
-      (spawn (lambda () (apply primitive-reconnect rest))))))
+      (spawn (lambda () (apply run-loop rest))))))
diff --git a/gnu/gnunet/server.scm b/gnu/gnunet/server.scm
index 44c034b..f50b7c1 100644
--- a/gnu/gnunet/server.scm
+++ b/gnu/gnunet/server.scm
@@ -28,7 +28,7 @@
          <loop> make-loop
          loop:connected loop:disconnected loop:terminal-condition
          loop:control-channel
-         primitive-reconnect)
+         run-loop)
   (import (only (rnrs base)
                begin define cons case else apply values quote lambda
                if error list let and append)
@@ -227,7 +227,7 @@ TODO: maybe 'lost'"
 
     ;; TODO: document, check types
     ;; state: <loop>
-    (define (primitive-reconnect state . rest)
+    (define (run-loop state . rest)
       (define handlers (apply (loop:message-handlers-maker state) state rest))
       (define error-handler (apply (loop:error-handler*-maker state) state 
rest))
       (define message-queue

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