mq/envelope: Allow testing if the envelope has been sent.

It will be useful for the test coming later.

* gnu/gnunet/mq/envelope.scm (envelope-peek-irrevocably-sent?):
New procedure.

1 files changed, 6 insertions, 1 deletions

diff --git a/gnu/gnunet/mq/envelope.scm b/gnu/gnunet/mq/envelope.scm
index e3788af..14d8b66 100644
--- a/gnu/gnunet/mq/envelope.scm
+++ b/gnu/gnunet/mq/envelope.scm
@@ -1,5 +1,5 @@
 ;; This file is part of GNUnet.
-;; Copyright (C) 2012-2019, 2021 GNUnet e.V.
+;; Copyright © 2012-2019, 2021, 2022 GNUnet e.V.
 ;;
 ;; GNUnet is free software: you can redistribute it and/or modify it
 ;; under the terms of the GNU Affero General Public License as published
@@ -27,6 +27,7 @@
   (export <envelope> make-envelope envelope?
           attempt-cancel! attempt-irrevocable-sent!
           envelope-peek-cancelled?
+          envelope-peek-irrevocably-sent?
           ;; TODO find a better place
           (rename (bind-atomic-boxen %%bind-atomic-boxen)))
   (import (gnu gnunet utils hat-let)
@@ -73,6 +74,10 @@ When being marked as cancelled, the thunk @var{cancel!} is called."
       "Test whether @var{envelope} is currently cancelled (true / false)."
       (eq? #t (atomic-box-ref (%cancellation-state envelope))))
 
+    (define (envelope-peek-irrevocably-sent? envelope)
+      "Test whether @var{envelope} has been irrevocably sent (true / false)."
+      (eq? #false (atomic-box-ref (%cancellation-state envelope))))
+
     (define (%attempt-irrevocable-sent! envelope already-sent go cancelled)
       (bind-atomic-boxen
        ((state (%cancellation-state envelope) swap!))