fix hard-to-catch commas in symbols compilation error

src/kiss/Reader.hx

@@ -251,7 +251,7 @@ class Reader {
     }
 
     public static final whitespace = [" ", "\t", "\n"];
-    public static final terminators = [")", "]", "}", '"', "/*"].concat(whitespace);
+    public static final terminators = [")", "]", "}", '"', "/*", ","].concat(whitespace);
 
     public static function nextToken(stream:Stream, expect:String, allowEmptyString = false) {
         switch (stream.takeUntilOneOf(terminators, true)) {

src/test/cases/CommasInArgListTestCase.hx

@@ -0,0 +1,12 @@
+package test.cases;
+
+import utest.Test;
+import utest.Assert;
+import kiss.Prelude;
+
+@:build(kiss.Kiss.buildExpectingError(kiss.EType.EAny))
+class CommasInArgListTestCase extends Test {
+    function testExpectedError() {
+        _testExpectedError();
+    }
+}

src/test/cases/CommasInArgListTestCase.kiss

@@ -0,0 +1,2 @@
+(let [l ->[arg, arg2, arg3] null]
+    (l 1 2 3))