[gnunet-scheme] 195/324: mq-impl/stream: Reduce nesting.

[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 c075ee3b680bc2e183a12b156783983751949a00
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Aug 21 13:26:52 2021 +0200

    mq-impl/stream: Reduce nesting.
    
    A 'define' suffices, there is no need for a 'let' form here;
    
    * gnu/gnunet/mq-impl/stream.scm
      (connect/fibers): use 'define' instead of 'let'.
---
 gnu/gnunet/mq-impl/stream.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gnu/gnunet/mq-impl/stream.scm b/gnu/gnunet/mq-impl/stream.scm
index 3e2158a..8f88d1f 100644
--- a/gnu/gnunet/mq-impl/stream.scm
+++ b/gnu/gnunet/mq-impl/stream.scm
@@ -265,11 +265,11 @@ the error @code{input:regular-end-of-file} is injected 
into the message queue."
       (define (interrupt! mq)
        (trigger-condition! rcvar))
       (define wait! (cut await-trigger! rcvar))
-      (let ((mq (make-message-queue handlers error-handler interrupt!)))
-       (spawn (lambda ()
-                (define socket (connect-unix config service-name))
-                (inject-error! mq 'connection:connected)
-                (spawn (lambda () (handle-input! mq socket)))
-                (spawn (lambda () (handle-output! mq socket wait!)))))
-       mq))))
+      (define mq (make-message-queue handlers error-handler interrupt!))
+      (spawn (lambda ()
+              (define socket (connect-unix config service-name))
+              (inject-error! mq 'connection:connected)
+              (spawn (lambda () (handle-input! mq socket)))
+              (spawn (lambda () (handle-output! mq socket wait!)))))
+      mq)))
 

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