Fix outlier width calculation.

mmcgrana · Apr 15, 2010 · 96ed744 · 96ed744
1 parent 94b07c4
commit 96ed744
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/clj_stacktrace/repl.clj b/src/clj_stacktrace/repl.clj
@@ -83,9 +83,10 @@
   "Returns the width of the longest source-string among all trace elems of the 
   excp and its causes."
   [excp]
-    (let [this-source-width
-            (utils/high (map (memfn length)
-                             (map source-str (:trace-elems excp))))]
+    (let [this-source-width (utils/fence
+                              (sort
+                                (map #(.length %)
+                                     (map source-str (:trace-elems excp)))))]
       (if-let [cause (:cause excp)]
         (max this-source-width (find-source-width cause))
         this-source-width)))