From 7ea70da82e42416864e2f97e3d314aced34af682 Mon Sep 17 00:00:00 2001
From: Tom Faulhaber <git_net@infolace.com>
Date: Tue, 16 Jun 2009 07:14:36 +0000
Subject: pprint: Changing one '=' into an 'identical?' gave us another ~30%
 speedup.

---
 src/clojure/contrib/pprint/PrettyWriter.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/clojure')

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)
-- 
cgit v1.2.3-70-g09d2