[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 195/324: mq-impl/stream: Reduce nesting.
From: |
gnunet |
Subject: |
[gnunet-scheme] 195/324: mq-impl/stream: Reduce nesting. |
Date: |
Tue, 21 Sep 2021 13:23:55 +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 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.
- [gnunet-scheme] 190/324: Correct XXX and TODO on input:regular-end-of-file., (continued)
- [gnunet-scheme] 190/324: Correct XXX and TODO on input:regular-end-of-file., gnunet, 2021/09/21
- [gnunet-scheme] 196/324: mq-impl/stream: Stop all fibers when EOF is reached (part 1)., gnunet, 2021/09/21
- [gnunet-scheme] 201/324: tests/mq-stream: Make test more strict., gnunet, 2021/09/21
- [gnunet-scheme] 204/324: mq-impl/stream: Document implementation pitfall., gnunet, 2021/09/21
- [gnunet-scheme] 214/324: tests/mq: Use 'message-handler' macro., gnunet, 2021/09/21
- [gnunet-scheme] 217/324: tests/mq: Spam the log less., gnunet, 2021/09/21
- [gnunet-scheme] 233/324: doc: Document the message type database a little., gnunet, 2021/09/21
- [gnunet-scheme] 232/324: doc: Partially document handler procedures and interposers., gnunet, 2021/09/21
- [gnunet-scheme] 239/324: tests/network-size: Don't let the GC close port., gnunet, 2021/09/21
- [gnunet-scheme] 241/324: nse/client: Add a 'disconnected' callback., gnunet, 2021/09/21
- [gnunet-scheme] 195/324: mq-impl/stream: Reduce nesting.,
gnunet <=
- [gnunet-scheme] 200/324: mq-impl/stream: Make error injection less unobviously correct., gnunet, 2021/09/21
- [gnunet-scheme] 210/324: mq-stream: Reuse 'type' variable instead of reading the type again., gnunet, 2021/09/21
- [gnunet-scheme] 219/324: mq-impl/stream: Create the message queue as late as possible., gnunet, 2021/09/21
- [gnunet-scheme] 230/324: doc: Correct errors in ‘network structure’ section., gnunet, 2021/09/21
- [gnunet-scheme] 235/324: doc: Document how errors and received/sent messages are ordered., gnunet, 2021/09/21
- [gnunet-scheme] 199/324: guix: Use patched version of guile-fibers., gnunet, 2021/09/21
- [gnunet-scheme] 209/324: doc: Resolve the TODO about broken pipes., gnunet, 2021/09/21
- [gnunet-scheme] 213/324: nse/client: Use 'message-handler' macro., gnunet, 2021/09/21
- [gnunet-scheme] 222/324: mq-impl/stream: Handle closed ports more gracefully., gnunet, 2021/09/21
- [gnunet-scheme] 223/324: mq,doc: Update TODOs about message queues., gnunet, 2021/09/21