[clojure-contrib commit] r946 - pprint: Changing one '=' into an 'identical?' gave us another ~30% speedup.

[codesite...@google.com]

Author: tomfaulhaber
Date: Tue Jun 16 00:14:36 2009
New Revision: 946

Modified:
trunk/src/clojure/contrib/pprint/PrettyWriter.clj

Log:
pprint: Changing one '=' into an 'identical?' gave us another ~30% speedup.

Modified: trunk/src/clojure/contrib/pprint/PrettyWriter.clj
==============================================================================
--- trunk/src/clojure/contrib/pprint/PrettyWriter.clj (original)
+++ trunk/src/clojure/contrib/pprint/PrettyWriter.clj Tue Jun 16 00:14:36
2009
@@ -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)