[gnunet-scheme] 05/06: cadet/client: Correct channel-allow-send check.

[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 8b64d36184641b01ed0c25d306ab33e89d4786bc
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Aug 17 15:38:52 2022 +0200

    cadet/client: Correct channel-allow-send check.
    
    * gnu/gnunet/cadet/client.scm
    (reconnect)[control*]{stop-if-exhausted}: Replace >= by >.
---
 gnu/gnunet/cadet/client.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
index 05131db..6be92f8 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -82,7 +82,7 @@
                let^)
          (only (rnrs base)
                begin define lambda assert quote cons apply values
-               case else = define-syntax + expt - let* let and >=)
+               case else = define-syntax + expt - let* let and >)
          (only (rnrs control)
                unless)
          (only (rnrs records syntactic) define-record-type)
@@ -198,7 +198,7 @@
          (let/ec
           stop
           (define (stop-if-exhausted)
-            (unless (>= (channel-allow-send channel) 0)
+            (unless (> (channel-allow-send channel) 0)
               (stop)))
           (define (decrement!)
             (set-channel-allow-send! channel

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