diff options
author | Rich Hickey <richhickey@gmail.com> | 2009-08-02 11:45:13 -0400 |
---|---|---|
committer | Rich Hickey <richhickey@gmail.com> | 2009-08-02 11:45:13 -0400 |
commit | 6e2ff8788fbff36d0ce019c7bfc6adff4fc58cf9 (patch) | |
tree | e1cccb16430ad37e9abfdc6c273729fd1a228d2e /src/clj | |
parent | deff64115db501b5adf28432e657d3d9fb823ff9 (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.clj | 13 |
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 |