added support for tracing exceptions in trace/trace-var

ChangeLog.md

@@ -13,6 +13,7 @@ All notable changes to this project will be documented in this file.
 - function `io/file-normalize-utf`
 - thread type support to the function `thread` to allow spawning daemon or user 
   threads
+- support for tracing exceptions in `trace/trace-var`
 
 
 

src/main/java/com/github/jlangch/venice/impl/docgen/cheatsheet/modules/ModuleTracingSection.java

@@ -45,7 +45,7 @@ public DocSection section() {
         final DocSection trace = new DocSection("Tracing", id());
         all.addSection(trace);
         trace.addItem(diBuilder.getDocItem("trace/trace"));
-        trace.addItem(diBuilder.getDocItem("trace/trace-var"));
+        trace.addItem(diBuilder.getDocItem("trace/trace-var", true, true));
         trace.addItem(diBuilder.getDocItem("trace/untrace-var"));
 
         final DocSection test = new DocSection("Test", id());

src/main/resources/com/github/jlangch/venice/trace.venice

@@ -54,9 +54,13 @@
   (let [id (gensym "t")]
     (tracer id (str (trace-indent) (pr-str (cons name args))))
     (binding [*trace-depth* (inc *trace-depth*)]
-      (let [result (apply f args)]
-        (tracer id (str (trace-indent) "=> " (pr-str result)))
-        result))))
+      (try
+        (let [result (apply f args)]
+          (tracer id (str (trace-indent) "=> " (pr-str result)))
+          result)
+        (catch :Exception e
+          (tracer id (str (trace-indent) "=> " (pr-str e)))
+          (throw e))))))
 
 
 (defn
@@ -150,7 +154,7 @@
           (t/trace-var +)
 
           (+ 1 2))
-        """
+        """,
         """
         (do
           (load-module :trace ['trace :as 't])
@@ -163,6 +167,19 @@
           (t/trace-var foo)
           (t/trace-var bar)
 
+          (bar 5))
+        """,
+        """
+        (do
+          (load-module :trace ['trace :as 't])
+
+          (defn foo [x] (/ x 0)) ;; division by zero!
+          (defn bar [x] (foo x))
+
+          (t/trace-var /)
+          (t/trace-var foo)
+          (t/trace-var bar)
+
           (bar 5))
         """ )
      :see-also '(