From 1bd15a1c4adc6fb4eb855f70a4f8693e0e691eaa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C5=82=20Marczyk?= Date: Thu, 12 Apr 2012 21:57:07 +0200 Subject: [PATCH 6/6] Remove remaining uses of js* in PersistentHashMap --- src/cljs/cljs/core.cljs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cljs/cljs/core.cljs b/src/cljs/cljs/core.cljs index be9c26e..510691c 100644 --- a/src/cljs/cljs/core.cljs +++ b/src/cljs/cljs/core.cljs @@ -2955,7 +2955,7 @@ reduces them without incurring seq initialization" (defn- create-node [shift key1 val1 key2hash key2 val2] (let [key1hash (hash key1)] (if (== key1hash key2hash) - (HashCollisionNode. key1hash 2 (js* "([~{}, ~{}, ~{}, ~{}])" key1 val1 key2 val2)) + (HashCollisionNode. key1hash 2 (array key1 val1 key2 val2)) (let [added-leaf? (atom false)] (-> cljs.core.BitmapIndexedNode/EMPTY (.inode-assoc shift key1hash key1 val1 added-leaf?) @@ -3082,7 +3082,7 @@ reduces them without incurring seq initialization" nil-val not-found) (nil? root) not-found - :else (nth (.inode-find root 0 (hash k) k (js* "([null, ~{}])" not-found)) 1))) + :else (nth (.inode-find root 0 (hash k) k (array nil not-found)) 1))) IAssociative (-assoc [coll k v] -- 1.7.1