match Clojure behavior for get on string / array. Need to coerce key into int.

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -1574,11 +1574,11 @@ reduces them without incurring seq initialization"
 
         (array? o)
         (when (< k (.-length o))
-          (aget o k))
+          (aget o (int k)))
 
         (string? o)
         (when (< k (.-length o))
-          (aget o k))
+          (aget o (int k)))
 
         (native-satisfies? ILookup o)
         (-lookup o k)

src/test/cljs/cljs/core_test.cljs

@@ -2829,6 +2829,9 @@
   (is (= (reduce my-conj [] (eduction (map identity) [1 2 3]))
          [1 2 3])))
 
+(deftest test-get-string-float
+  (is (= (get "hi" 1.7) \i)))
+
 (comment
   ;; ObjMap
   ;; (let [ks (map (partial str "foo") (range 500))