[gnunet-scheme] 01/04: tests/cadet: Correct use of 'cond'.

[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 b0e84ed8b621a870904d7880f5ce919bd5cb4e50
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Aug 25 19:27:00 2022 +0200

    tests/cadet: Correct use of 'cond'.
    
    It wasn't incorrect, per se, as 'send-message!' always returns
    something truthful, but it's not exactly idiomatic.
    
    * tests/cadet.scm
    ("data is properly sent in response to acknowledgements, in-order"):
    Correct it.
---
 tests/cadet.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/cadet.scm b/tests/cadet.scm
index 5a59111..fc614f1 100644
--- a/tests/cadet.scm
+++ b/tests/cadet.scm
@@ -295,7 +295,8 @@
                  (let loop2 ((n n))
                    (cond ((<= n 0)
                           (loop))
-                         ((send-message! message-queue acknowledgement)
+                         (#true
+                          (send-message! message-queue acknowledgement)
                           (loop2 (- n 1))))))
                 ('stop (values)))))))
        (lambda (config spawn-fiber)

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