expose wrapped-exception introspect things for debugging

[8sync.git] / eightsync / agenda.scm

diff --git a/eightsync/agenda.scm b/eightsync/agenda.scm
index 5865bba3e84790c841c4da1ff4e13244f2cb3d4c..9f54e17aa06ca2faf76c652de922e803bfb027af 100644 (file)
--- a/eightsync/agenda.scm
+++ b/eightsync/agenda.scm
@@ -67,6 +67,12 @@
             
             catch-8sync catch-%8sync
 
             
             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
             print-error-and-continue
 
             %current-agenda