[gnunet-scheme] 213/324: nse/client: 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 43e03846524fc947f26ce857b1780f9bbc927d9a
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Aug 31 17:42:45 2021 +0200

    nse/client: Use 'message-handler' macro.
    
    * gnu/gnunet/nse/client.scm (connect)[handlers]: Use the
      'message-handler' macro instead of the corresponding procedure.
---
 gnu/gnunet/nse/client.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/gnu/gnunet/nse/client.scm b/gnu/gnunet/nse/client.scm
index 44d9c43..5442c7c 100644
--- a/gnu/gnunet/nse/client.scm
+++ b/gnu/gnunet/nse/client.scm
@@ -55,7 +55,7 @@
           (only (gnu gnunet netstruct syntactic)
                read% set%! sizeof)
           (only (gnu gnunet mq handler)
-               make-message-handler
+               message-handler
                message-handlers)
           (only (gnu gnunet mq)
                send-message!)
@@ -138,12 +138,13 @@ and @var{connected} are optional."
          (updated estimate)))
       (define handlers
        (message-handlers
-        (make-message-handler (symbol-value message-type msg:nse:estimate)
-                              (lambda (p) (p))
-                              (lambda (s)
-                                (= (slice-length s)
-                                   (sizeof /:msg:nse:estimate '())))
-                              handle-estimate!)))
+        (message-handler
+         (type (symbol-value message-type msg:nse:estimate))
+         ((interpose code) code)
+         ((well-formed? slice)
+          (= (slice-length slice)
+             (sizeof /:msg:nse:estimate '())))
+         ((handle! slice) (handle-estimate! slice)))))
       (define (send-start!)
        ;; The service only starts sending estimates once
        ;; /:msg:nse:start is sent.

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