make it easier to debug

@@ -0,0 +4,4 @@
+(import ./ucan)
+(export #t)
+
+(defstruct Actor

@@ -0,0 +16,4 @@
+   (auth      : :list)       ; UCAN authorization tokens for the message
+   (method    : :string)     ; the method invoked by the message
+   (body      : :u8vector)   ; the message body
+   (epxire    : :integer)    ; expiration of the message in UNIX seconds

@@ -0,0 +28,4 @@
+   (group     : :string)     ; destination group
+   (method    : :string)     ; the method invoked by the message
+   (body      : :u8vector)   ; the message body
+   (epxire    : :integer)    ; expiration of the message in UNIX seconds

@@ -0,0 +11,4 @@
+;; context for security operations
+(interface (SecurityContext Closer)
+  ;; the actor to which this security context pertains
+  (actor)

@@ -0,0 +62,4 @@
+
+;; actor message handling
+(interface (ActorHandler Closer)
+  ;; reveive a message

@@ -0,0 +37,4 @@
+                       (expire token.expire :- :integer))
+              => VerificationResult
+              (if (fx= next.type DELEGATE)
+                (if (or (equal? next.audience issuer)

@@ -0,0 +47,4 @@
+  => :void
+  (TODO save-capability-context!))
+
+(def public-key-cache-ttl 120)

@@ -0,0 +37,4 @@
+       ((fx= code DID-KEY-ED25519)
+        (bytes->ed25519-public-key bytes))
+       (else
+        (raise-contract-violation did->public-key "unknwon key type" code))))

@@ -0,0 +13,4 @@
+   (path           :- :string)   ; path where the context is stored
+   (key            :- :u8vector) ; encryption key for private key material
+   ;; data tables
+   (private-keys   :- HashTable) ; did string -> PrivKey

@@ -0,0 +20,4 @@
+   (root-output-anchors :- HashTable) ; token set
+   (subject-input-anchors  :- HashTable) ; did string -> token set
+   (subject-output-anchors :- HashTable) ; did string -> token set
+   (tokens         :- HashTable) ; token set

@@ -0,0 +38,4 @@
+  (using (e (new-instance !Error::t) :- !Error)
+    (set! e.message msg)
+    (set! e.irritants irritants)
+    (set! e.trace "?")))

@@ -0,0 +85,4 @@
+                            (VerificationError-reason result))))
+    ;; check expiration
+    (when (> token.chain.expire 0)
+      (unless (<= token.expire token.chain.expire)