[gnunet-scheme] 208/324: tests/mq-stream: Don't assume setvbuf returns anything.

[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 17ed6d444d092a7b8ba2b3ba71492e3ade8889a8
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Aug 31 15:58:46 2021 +0200

    tests/mq-stream: Don't assume setvbuf returns anything.
    
    TODO: fix (let^ ((_ ...) ...) ...).
    
    * tests/mq-stream.scm
      ("output buffers are flushed"): Use "<-- _" instead of "! _"
      when calling setvbuf.
---
 tests/mq-stream.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/mq-stream.scm b/tests/mq-stream.scm
index 3df00fe..968a8de 100644
--- a/tests/mq-stream.scm
+++ b/tests/mq-stream.scm
@@ -629,8 +629,8 @@
   (let^ ((<-- (alpha beta) (two-sockets))
          ;; In Guile, by default, new sockets are unbuffered.
          ;; Add a buffer.
-         (! _ (setvbuf alpha 'block 64))
-         (! _ (setvbuf beta 'block 64))
+         (<-- _ (setvbuf alpha 'block 64))
+         (<-- _ (setvbuf beta 'block 64))
          (! mq (make-message-queue no-handlers no-error-handler
                                    (lambda (_) (values))))
          ;; Send a message.  As the message is smaller than the buffer size,

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