diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-04-12 21:26:48 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-04-12 21:26:48 -0400 |
| commit | 6dd033d9e12337f6630faa3d3f5c2e901a28c4f4 (patch) | |
| tree | f54058280a93ae8b10a4d7e2d3671489aad14468 /src/main/clojure | |
| parent | ebf0d212dcc076ebee6984d276ff037ce1a7ecbe (diff) | |
fixed corner case in c.c.profile print-summary
Diffstat (limited to 'src/main/clojure')
| -rw-r--r-- | src/main/clojure/clojure/contrib/profile.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/main/clojure/clojure/contrib/profile.clj b/src/main/clojure/clojure/contrib/profile.clj index bd26ddfa..2af2a014 100644 --- a/src/main/clojure/clojure/contrib/profile.clj +++ b/src/main/clojure/clojure/contrib/profile.clj @@ -95,7 +95,7 @@ profiling code."} *enable-profiling* true) (defn print-summary "Prints a table of the results returned by summarize." [profile-summary] - (let [name-width (apply max (map (comp count name) (keys profile-summary))) + (let [name-width (apply max 1 (map (comp count name) (keys profile-summary))) fmt-string (str "%" name-width "s %8d %8d %8d %8d %8d%n")] (printf (.replace fmt-string \d \s) "Name" "mean" "min" "max" "count" "sum") |