First cut at TransientHashMap

Signed-off-by: Rich Hickey <richhickey@gmail.com>

1 files changed, 9 insertions, 0 deletions

diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index a275236d..3974204e 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -4348,6 +4348,15 @@
        (recur ret (first kvs) (second kvs) (nnext kvs))
        ret))))
 
+(defn dissoc!
+  "Returns a transient map that doesn't contain a mapping for key(s)."
+  ([#^clojure.lang.ITransientMap map key] (.without map key))
+  ([#^clojure.lang.ITransientMap map key & ks]
+   (let [ret (.without map key)]
+     (if ks
+       (recur ret (first ks) (next ks))
+       ret))))
+
 (defn pop!
   "Removes the last item from a transient vector. If
   the collection is empty, throws an exception. Returns coll"