util/struct: Define /time-absolute.

* gnu/gnunet/util/struct.scm (/time-absolute): New variable.

1 files changed, 4 insertions, 1 deletions

diff --git a/gnu/gnunet/util/struct.scm b/gnu/gnunet/util/struct.scm
index 98b6d10..bdc62a5 100644
--- a/gnu/gnunet/util/struct.scm
+++ b/gnu/gnunet/util/struct.scm
@@ -20,7 +20,7 @@
 ;; Brief: many network structures, that would otherwise result in very
 ;; small source files if each was put in their own module.
 (define-library (gnu gnunet util struct)
-  (export /uuid
+  (export /uuid /time-absolute
           /:message-header /:operation-result /async-scope-id)
   (import (only (gnu gnunet netstruct syntactic)
                 define-type structure/packed)
@@ -28,6 +28,9 @@
                 u8vector u16/big u32/big u64/big)
           (only (rnrs base) begin))
   (begin
+    ;; Absolute time (in GNUnet), in microseconds
+    (define-type /time-absolute u64/big)
+
     (define-type /uuid
       (structure/packed
        (synopsis "A UUID, a 128 bit random value")