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
;; 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)