[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 05/06: cadet/client: Correct channel-allow-send check.
From: |
gnunet |
Subject: |
[gnunet-scheme] 05/06: cadet/client: Correct channel-allow-send check. |
Date: |
Wed, 17 Aug 2022 16:01:58 +0200 |
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.
- [gnunet-scheme] branch master updated (aa9df4c -> 43a15ed), gnunet, 2022/08/17
- [gnunet-scheme] 02/06: cadet/struct: Clarify the relation between %minimum-local-channel-id and GNUNET_CADET_LOCAL_CHANNEL_ID_CLI., gnunet, 2022/08/17
- [gnunet-scheme] 04/06: dht/client: Simplify request-search-result-iterator with previous commit., gnunet, 2022/08/17
- [gnunet-scheme] 03/06: server: Return whether the message was actually sent., gnunet, 2022/08/17
- [gnunet-scheme] 01/06: cadet/client: Use %minimum-local-channel-id., gnunet, 2022/08/17
- [gnunet-scheme] 05/06: cadet/client: Correct channel-allow-send check.,
gnunet <=
- [gnunet-scheme] 06/06: cadet/client: Handle msg:cadet:local:acknowledgement by sending a message to 'control'., gnunet, 2022/08/17