X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=eightsync%2Fagenda.scm;h=9f54e17aa06ca2faf76c652de922e803bfb027af;hp=27c0d7d2371feb023853372035ad7e810391622f;hb=5a32dfc9d2b5a5b873d57ecdbf29f68a136cb0b0;hpb=cfccc4dee6478d80e2f45f72c0ab83b776d99503

diff --git a/eightsync/agenda.scm b/eightsync/agenda.scm
index 27c0d7d..9f54e17 100644
--- a/eightsync/agenda.scm
+++ b/eightsync/agenda.scm
@@ -67,6 +67,12 @@
             
             catch-8sync catch-%8sync
 
+            ;; used for introspecting the error, but a method for making
+            ;; is not exposed
+            wrapped-exception?
+            wrapped-exception-key wrapped-exception-args
+            wrapped-exception-stacks
+
             print-error-and-continue
 
             %current-agenda
@@ -512,7 +518,6 @@ return the wrong thing via (%8sync) and trip themselves up."
             ;; If something bad happened and we didn't catch it,
             ;; we'll wrap it up in such a way that the continuation
             ;; can address it
-            ;; @@: For this stack to work doesn't it have to be
             (lambda (key . args)
               (cond
                ((eq? key '8sync-caught-error)