diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2009-06-16 07:14:36 +0000 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2009-06-16 07:14:36 +0000 |
| commit | 7ea70da82e42416864e2f97e3d314aced34af682 (patch) | |
| tree | aab11515e582cd2e2bc26b47542a24d6e1fefe74 | |
| parent | 443409f56420f3dc7972131c34c189e63d28fdcb (diff) | |
pprint: Changing one '=' into an 'identical?' gave us another ~30% speedup.
| -rw-r--r-- | src/clojure/contrib/pprint/PrettyWriter.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/pprint/PrettyWriter.clj b/src/clojure/contrib/pprint/PrettyWriter.clj index ca77e3fd..31ad1226 100644 --- a/src/clojure/contrib/pprint/PrettyWriter.clj +++ b/src/clojure/contrib/pprint/PrettyWriter.clj @@ -68,7 +68,7 @@ (loop [child (:parent child)] (cond (nil? child) false - (= parent child) true + (identical? parent child) true :else (recur (:parent child))))) (defstruct #^{:private true} section :parent) |