[gnunet-scheme] 214/324: tests/mq: 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 a5fe3a366618c08193a614ab6d746f1edd077974
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Aug 31 17:47:33 2021 +0200

    tests/mq: Use 'message-handler' macro.
    
    * tests/mq.scm (mh): Use the 'message-handler' macro instead of the
      corresponding procedure.
---
 tests/mq.scm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/tests/mq.scm b/tests/mq.scm
index ef94295..987dfa8 100644
--- a/tests/mq.scm
+++ b/tests/mq.scm
@@ -513,11 +513,13 @@ with @code{x}."
 (define mhv (vector-unfold (lambda (_) (make-parameter #f)) 4))
 (define mh (apply message-handlers
                   (map (lambda (i)
-                         (make-message-handler i (lambda (p) (p))
-                                               (lambda _
-                                                 (apply ((vector-ref mhv i)) 
_))
-                                               (lambda _
-                                                 (apply ((vector-ref mhp i)) 
_))))
+                        (message-handler
+                         (type i)
+                         ((interpose code) code)
+                         ((well-formed? slice)
+                          (((vector-ref mhv i)) slice))
+                         ((handle! slice)
+                          (((vector-ref mhp i)) slice))))
                        (iota (vector-length mhp)))))
 
 ;; FWIW, passing #f is not really allowed.

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