summaryrefslogtreecommitdiff
path: root/src/clj
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2009-08-02 11:45:13 -0400
committerRich Hickey <richhickey@gmail.com>2009-08-02 11:45:13 -0400
commit6e2ff8788fbff36d0ce019c7bfc6adff4fc58cf9 (patch)
treee1cccb16430ad37e9abfdc6c273729fd1a228d2e /src/clj
parentdeff64115db501b5adf28432e657d3d9fb823ff9 (diff)
refactor so mutable vectors support ordinary read functions: get/count/nth/function-call, with thread safety checkchunks
Diffstat (limited to 'src/clj')
-rw-r--r--src/clj/clojure/core.clj13
1 files changed, 1 insertions, 12 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index 293adab5..a2907aa8 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -4350,18 +4350,7 @@
"Removes the last item from a mutable vector. If
the collection is empty, throws an exception. Returns coll"
[#^clojure.lang.IMutableVector coll]
- (.pop coll))
-
-(defn nth!
- "Returns the value at the index. get! returns nil if index out of
- bounds, nth! throws an exception"
- [#^clojure.lang.IMutableVector coll index]
- (.nth coll index))
-
-(defn get!
- "Returns the value mapped to key, nil if key not present."
- [#^clojure.lang.IMutableAssociative coll key]
- (.valAt coll key))
+ (.pop coll))
;redef into with batch support
(defn into