From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 28 Nov 2015 13:47:12 +0000 (-0600)
Subject: expose wrapped-exception introspect things for debugging
X-Git-Tag: v0.1.0~54
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=5a32dfc9d2b5a5b873d57ecdbf29f68a136cb0b0;p=8sync.git

expose wrapped-exception introspect things for debugging
---

diff --git a/eightsync/agenda.scm b/eightsync/agenda.scm
index 5865bba..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