CLJS-1775: get with nil returns as if get with 0

Author: anmonteiro

src/main/cljs/cljs/core.cljs

@@ -1819,7 +1819,7 @@ reduces them without incurring seq initialization"
           (aget o (int k)))
 
         (string? o)
-        (when (< k (.-length o))
+        (when (and (some? k) (< k (.-length o)))
           (aget o (int k)))
 
         (native-satisfies? ILookup o)
@@ -1834,12 +1834,12 @@ reduces them without incurring seq initialization"
 
         (array? o)
         (if (< k (.-length o))
-          (aget o k)
+          (aget o (int k))
           not-found)
-        
+
         (string? o)
         (if (< k (.-length o))
-          (aget o k)
+          (aget o (int k))
           not-found)
 
         (native-satisfies? ILookup o)

src/test/cljs/cljs/core_test.cljs

@@ -3256,6 +3256,12 @@
                                (assoc record :d 4 :e 5)) )
            #{[:a 1] [:b 2] [:c 3] [:d 4] [:e 5]}))))
 
+(deftest test-cljs-1775
+  (is (nil? (get "foo" nil)))
+  (is (= 42 (get {nil 42} nil) 42))
+  (is (= (get #js [\h \i] 1.7 :not-found) \i))
+  (is (= (get "hi" 1.7 :not-found) \i)))
+
 (comment
   ;; ObjMap
   ;; (let [ks (map (partial str "foo") (range 500))