defensive coding to stop blowing up when there's nothing in trace-ele…

…ms for the cause
mmcgrana · 6854616a9e21da36d8d055d7972649149f7e0f69 · jonpither committed May 31, 2013 · May 31, 2013 · 6854616
1 parent fb11426
commit 6854616a9e21da36d8d055d7972649149f7e0f69
Unified Split

Showing with 2 additions and 2 deletions.

+2 −2 src/clj_stacktrace/repl.clj
@@ -96,8 +96,8 @@
                                (map (comp count source-str))
                                (sort)
                                (utils/fence))]
-    (if-let [cause (:cause excp)]
-      (max this-source-width (find-source-width cause))
+    (if (not-empty (-> excp :cause :trace-elems))
+      (max this-source-width (find-source-width (:cause excp)))
       this-source-width)))
 
 (defn pst-on [on color? e]