CLJ-1319 Throw on odd arguments to PersistentArrayMap.createAsIfByAssoc

Signed-off-by: Stuart Halloway <[email protected]>

Author: athos

src/jvm/clojure/lang/PersistentArrayMap.java

@@ -74,6 +74,8 @@ static public PersistentArrayMap createWithCheck(Object[] init){
 }
 
 static public PersistentArrayMap createAsIfByAssoc(Object[] init){
+	if ((init.length & 1) == 1)
+                throw new IllegalArgumentException(String.format("No value supplied for key: %s", init[init.length-1]));
 	// If this looks like it is doing busy-work, it is because it
 	// is achieving these goals: O(n^2) run time like
 	// createWithCheck(), never modify init arg, and only

test/clojure/test_clojure/data_structures.clj

@@ -1062,6 +1062,9 @@
       {x1 v4a, w5a v4c, v4a z3b, y2 2} [x1 v4a, w5a v4a, w5b v4b,
                                         v4a z3a, y2 2, v4b z3b, w5c v4c])))
 
+(deftest test-array-map-arity
+  (is (thrown? IllegalArgumentException
+               (array-map 1 2 3))))
 
 (deftest test-assoc
   (are [x y] (= x y)