KeyValueExps allow map literals

src/test/cases/BasicTestCase.hx

@@ -242,6 +242,10 @@ class BasicTestCase extends Test {
     function testCase() {
         _testCase();
     }
+
+    function testMaps() {
+        _testMaps();
+    }
 }
 
 class BasicObject {

src/test/cases/BasicTestCase.kiss

@@ -339,4 +339,11 @@
         ((Some "hey") (Assert.pass))
         (otherwise (Assert.fail)))
     (Assert.equals 5 (case (toOption 0)
-        (otherwise 5))))
+        (otherwise 5))))
+
+(defun _testMaps []
+    (deflocal :Map<String,String> myMap [=>"hey" "you"
+                        =>"found" "me"])
+    (Assert.equals "you" (dict-get myMap "hey"))
+    (Assert.equals "me" (dict-get myMap "found"))
+    )