[gnunet-scheme] 72/324: mq: fix make-envelope/dll constructor.

[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 a94bf06a36997149fb38e98b48f4505c3024308e
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Feb 3 17:53:30 2021 +0100

    mq: fix make-envelope/dll constructor.
    
    * gnu/gnunet/message/make-envelope/dll
      (<envelope/dll>): specify parent type.
      (make-envelope/dll): use parent constructor.
---
 gnu/gnunet/message/envelope.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/message/envelope.scm b/gnu/gnunet/message/envelope.scm
index cf2fc41..749017a 100644
--- a/gnu/gnunet/message/envelope.scm
+++ b/gnu/gnunet/message/envelope.scm
@@ -97,14 +97,15 @@ This may only be done once."
           "A variant of @code{make-envelope}, that organises envelopes
 in a linked list.  The capability @var{cap} will be required for accessing
 and modifying this list."
-          (apply %make cap #f #f args))))
+          ((apply %make args) cap #f #f))))
+      (parent <envelope>)
       (sealed #f)
       (opaque #t))
 
     (define (envelope-dll-check ev/dll cap)
       "Verify whether the capability @var{cap} can be used
 for accessing the underlying DLL of the envelope @var{ev}.
-If not, raise an exception."
+If not, raise an exception.  Otherwise, return truth."
       ;; FIXME &bad-capability exception?
       (assert (eq? (%envelope/dll-capability ev/dll) cap)))
 

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