[gnunet-scheme] 215/324: tests/mq-stream: Use 'message-handler' macro.

[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 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.