[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 215/324: tests/mq-stream: Use 'message-handler' macro.
From: |
gnunet |
Subject: |
[gnunet-scheme] 215/324: tests/mq-stream: Use 'message-handler' macro. |
Date: |
Tue, 21 Sep 2021 13:24:15 +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 5133fc99a91bd0a898424b083a334ad6e888fb5b
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Aug 31 17:50:13 2021 +0200
tests/mq-stream: Use 'message-handler' macro.
* tests/mq-stream.scm (simple-handler): Use the 'message-handler'
macro instead of the corresponding procedure.
---
tests/mq-stream.scm | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/tests/mq-stream.scm b/tests/mq-stream.scm
index 968a8de..d9cd667 100644
--- a/tests/mq-stream.scm
+++ b/tests/mq-stream.scm
@@ -63,12 +63,12 @@
;; Without interposition, and the verifier always
;; returns #t.
-(define (simple-handler type handle)
- (make-message-handler
- type
- (lambda (thunk) (thunk))
- (const #t)
- handle))
+(define (simple-handler the-type handle)
+ (message-handler
+ (type the-type)
+ ((interpose code) code)
+ ((well-formed? _) #t)
+ ((handle! x) (handle x))))
;; Why isn't this the default? This stops the process from
;; exiting instead of raising an EPIPE system-error when
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.
- [gnunet-scheme] 179/324: nse/struct: Document 'timestamp' field of estimates., (continued)
- [gnunet-scheme] 179/324: nse/struct: Document 'timestamp' field of estimates., gnunet, 2021/09/21
- [gnunet-scheme] 192/324: tests/mq-stream: Recognise the 'input:regular-end-of-file' error., gnunet, 2021/09/21
- [gnunet-scheme] 206/324: mq-impl/stream: Flush the output port regularily., gnunet, 2021/09/21
- [gnunet-scheme] 198/324: doc: Document dependencies and how to get the source code., gnunet, 2021/09/21
- [gnunet-scheme] 202/324: mq-impl/stream: Allow the write fiber to stop even if blocking., gnunet, 2021/09/21
- [gnunet-scheme] 205/324: tests/mq-stream: Unbreak SIGPIPE signal handler., gnunet, 2021/09/21
- [gnunet-scheme] 203/324: tests/mq-stream: Make tests less fragile., gnunet, 2021/09/21
- [gnunet-scheme] 193/324: mq-impl/stream: Eliminate condition variable., gnunet, 2021/09/21
- [gnunet-scheme] 207/324: hat-let: Allow (dotted) variable lists with <--., gnunet, 2021/09/21
- [gnunet-scheme] 211/324: doc: Correct typo (mesage -> message), gnunet, 2021/09/21
- [gnunet-scheme] 215/324: tests/mq-stream: Use 'message-handler' macro.,
gnunet <=
- [gnunet-scheme] 218/324: mq-impl/stream: Name the reader and writer thunks., gnunet, 2021/09/21
- [gnunet-scheme] 208/324: tests/mq-stream: Don't assume setvbuf returns anything., gnunet, 2021/09/21
- [gnunet-scheme] 212/324: mq/handler: Define a macro for constructing handlers., gnunet, 2021/09/21
- [gnunet-scheme] 220/324: mq-impl/stream: Extract code to be shared with connect/fibers., gnunet, 2021/09/21
- [gnunet-scheme] 226/324: doc: Generate PDF and HTML documentation, gnunet, 2021/09/21
- [gnunet-scheme] 227/324: mq: Remove TODOs about hypothetical &malformed-message., gnunet, 2021/09/21
- [gnunet-scheme] 229/324: guix: Import missing module., gnunet, 2021/09/21
- [gnunet-scheme] 194/324: mq-impl/stream: Eliminate atomic box., gnunet, 2021/09/21
- [gnunet-scheme] 191/324: doc: Document message queue error handling., gnunet, 2021/09/21
- [gnunet-scheme] 216/324: mq: Inject errors if no appropriate message handler exists., gnunet, 2021/09/21