separate call and ident aliases

src/test/cases/BasicTestCase.hx

@@ -257,6 +257,10 @@ class BasicTestCase extends Test {
     function testDefmacroWithLogic() {
         _testDefmacroWithLogic();
     }
+
+    function testCallAlias() {
+        _testCallAlias();
+    }
 }
 
 class BasicObject {

src/test/cases/BasicTestCase.kiss

@@ -392,4 +392,9 @@
 
 (defun _testDefmacroWithLogic []
     (Assert.equals "Welcome Stevo (Guest #1)" (macroWithLogic "Stevo"))
-    (Assert.equals "Welcome Bob (Guest #2)" (macroWithLogic "Bob")))
+    (Assert.equals "Welcome Bob (Guest #2)" (macroWithLogic "Bob")))
+
+// Make sure built-in call aliases don't override user-defined variables
+(defun _testCallAlias []
+    (let [map [=>"hey" "you"]]
+        (Assert.equals "you" (dictGet map "hey"))))

src/test/cases/ReaderMacroTestCase.kiss

@@ -9,9 +9,9 @@
 (defun myBool []
     (begin !false))
 
-(defalias pluppers +)
-(defalias fluffers 5)
-(defalias buffers 4)
+(defalias &call pluppers +)
+(defalias &ident fluffers 5)
+(defalias &ident buffers 4)
 
 (defvar mySum (pluppers fluffers buffers))