diff options
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") |