[gnunet-scheme] 200/324: mq-impl/stream: Make error injection less unobviously correct.

[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 dc93d1fd6fa89bd1c729605c5dadc916b952bad0
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Aug 26 19:19:18 2021 +0200

    mq-impl/stream: Make error injection less unobviously correct.
    
    This doesn't seem to fix any bug, but it does make the code
    seem clearer to me.
    
    * gnu/gnunet/mq-impl/stream.scm (port->message-queue): Move error
      injection outside 'let/ec'.
---
 gnu/gnunet/mq-impl/stream.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/gnunet/mq-impl/stream.scm b/gnu/gnunet/mq-impl/stream.scm
index a144f96..f91df70 100644
--- a/gnu/gnunet/mq-impl/stream.scm
+++ b/gnu/gnunet/mq-impl/stream.scm
@@ -304,9 +304,9 @@ XXX: Likewise for connect/fibers?"
                    (choice-operation
                     (prepare-await-trigger! rcvar)
                     escape-when-closed-operation)))
-                (handle-output! mq port wait!)
-                (when (signal-condition! closed-condition)
-                  (inject-error! mq 'input:regular-end-of-file)))))
+                (handle-output! mq port wait!))
+              (when (signal-condition! closed-condition)
+                (inject-error! mq 'input:regular-end-of-file))))
       mq)
 
     (define* (connect/fibers config service-name handlers error-handler

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