diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-02-09 16:48:12 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-02-09 16:48:12 -0500 |
| commit | 742619e583400400e69cd46ab9e9536c10afb738 (patch) | |
| tree | f23014c2f5c7138b22f4f39685057d4d70369d14 | |
| parent | d4bfd14ddd426b9d6f72fb52d8fa5257a62fd55c (diff) | |
hints on index in aget and aset
| -rw-r--r-- | src/clj/clojure/core.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 76d96529..f41c0765 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -2596,7 +2596,7 @@ (defn aget "Returns the value at the index/indices. Works on Java arrays of all types." - {:inline (fn [a i] `(. clojure.lang.RT (aget ~a ~i))) + {:inline (fn [a i] `(. clojure.lang.RT (aget ~a (int ~i)))) :inline-arities #{2}} ([array idx] (clojure.lang.Reflector/prepRet (. Array (get array idx)))) @@ -2606,7 +2606,7 @@ (defn aset "Sets the value at the index/indices. Works on Java arrays of reference types. Returns val." - {:inline (fn [a i v] `(. clojure.lang.RT (aset ~a ~i ~v))) + {:inline (fn [a i v] `(. clojure.lang.RT (aset ~a (int ~i) ~v))) :inline-arities #{3}} ([array idx val] (. Array (set array idx val)) |