Merge pull request #27 from nahuel/fix-short-stacktraces-bug

fixes IndexOutOfBoundsExceptions when trying to print exceptions
mmcgrana · 344fa2c444a18c6b2d6b6612f7473102ffaf534a · technomancy committed Oct 14, 2013 · Oct 14, 2013 · 344fa2c
2 parents 99b859f + 62d3d19
commit 344fa2c444a18c6b2d6b6612f7473102ffaf534a
Unified Split

Showing with 10 additions and 2 deletions.

+10 −2 src/clj_stacktrace/repl.clj
@@ -33,6 +33,14 @@
           (re-find #"^clojure\." (:ns elem)) :magenta
           :user-code :green)))
 
+(defn- guarded-fence [coll]
+  (case (count coll)
+    0 0
+    1 (first coll)
+    2 (quot (+ (first  coll)
+               (second coll)) 2)
+    (utils/fence coll)))
+
 (defn source-str [parsed]
   (if (and (:file parsed) (:line parsed))
     (str (:file parsed) ":" (:line parsed))
@@ -65,7 +73,7 @@
 (defn pst-elems-on
   [^java.io.Writer on color? parsed-elems & [source-width]]
   (let [print-width (+ 6 (or source-width
-                             (utils/fence
+                             (guarded-fence
                               (sort
                                (map #(.length ^String %)
                                     (map source-str parsed-elems))))))]
@@ -95,7 +103,7 @@
   (let [this-source-width (->> (:trace-elems excp)
                                (map (comp count source-str))
                                (sort)
-                               (utils/fence))]
+                               (guarded-fence))]
     (if (not-empty (-> excp :cause :trace-elems))
       (max this-source-width (find-source-width (:cause excp)))
       this-source-width)))