@mojir/lits 2.1.35 → 2.1.36

package/dist/testFramework.esm.js

@@ -13913,9 +13913,6 @@ var Parser = /** @class */ (function () {
                 case 'doseq':
                     left = this.parseForOrDoseq(firstToken);
                     break;
-                // cas:
-                //   left = this.parseDo(firstToken)
-                //   break
                 case 'loop':
                     left = this.parseLoop(firstToken);
                     break;
@@ -14117,6 +14114,12 @@ var Parser = /** @class */ (function () {
                     params.push(withSourceCodeInfo([NodeTypes.String, value], token[2]));
                     this.advance();
                 }
+                else if (isLBracketToken(token)) {
+                    this.advance();
+                    params.push(this.parseExpression());
+                    assertRBracketToken(this.peek());
+                    this.advance();
+                }
                 else {
                     throw new LitsError('Expected key to be a symbol or a string', this.peekSourceCodeInfo());
                 }
@@ -14247,9 +14250,17 @@ var Parser = /** @class */ (function () {
             var nodes = void 0;
             var docString = '';
             if (isLBraceToken(this.peek())) {
-                var parsedBlock = this.parseBlock(true);
-                docString = parsedBlock[1];
-                nodes = parsedBlock[0][1][1];
+                var positionBefore = this.parseState.position;
+                try {
+                    var objectNode = this.parseObject();
+                    nodes = [objectNode];
+                }
+                catch (_a) {
+                    this.parseState.position = positionBefore;
+                    var parsedBlock = this.parseBlock(true);
+                    docString = parsedBlock[1];
+                    nodes = parsedBlock[0][1][1];
+                }
             }
             else {
                 nodes = [this.parseExpression()];
@@ -14266,7 +14277,7 @@ var Parser = /** @class */ (function () {
                 ],
             ], firstToken[2]);
         }
-        catch (_a) {
+        catch (_b) {
             return null;
         }
     };
@@ -14316,9 +14327,17 @@ var Parser = /** @class */ (function () {
         var nodes;
         var docString = '';
         if (isLBraceToken(this.peek())) {
-            var parsedBlock = this.parseBlock(true);
-            docString = parsedBlock[1];
-            nodes = parsedBlock[0][1][1];
+            var positionBefore = this.parseState.position;
+            try {
+                var objectNode = this.parseObject();
+                nodes = [objectNode];
+            }
+            catch (_b) {
+                this.parseState.position = positionBefore;
+                var parsedBlock = this.parseBlock(true);
+                docString = parsedBlock[1];
+                nodes = parsedBlock[0][1][1];
+            }
         }
         else {
             nodes = [this.parseExpression()];
@@ -14516,9 +14535,6 @@ var Parser = /** @class */ (function () {
                 throw new LitsError('Expected }', this.peekSourceCodeInfo());
             }
         }
-        if (expressions.length === 0) {
-            expressions.push(withSourceCodeInfo([NodeTypes.ReservedSymbol, 'null'], token[2]));
-        }
         assertRBraceToken(this.peek());
         this.advance();
         return [
@@ -26631,6 +26647,50 @@ var sequenceReference = {
 };
 
 var specialExpressionsReference = {
+    'doseq': {
+        title: 'doseq',
+        category: 'Special expression',
+        customVariants: ['doseq (...binding) -> body'],
+        details: [
+            ['binding', 'loop-var in collection [...let-binding] [where whereExpr] [while whileExp]', 'A doseq loop binding'],
+            ['loop-var', 'symbol', 'The name of the loop variable.'],
+            ['collection', 'any', 'The collection to iterate over.'],
+            ['let-binding', 'let binding', 'A let binding to create a local variable.'],
+            ['whereExpr', 'expression', 'An expression that must evaluate to truthy for the loop body to be executed.'],
+            ['whileExp', 'expression', 'An expression that must evaluate to truthy for the loop to continue.'],
+            ['body', 'expressions', 'The expressions to evaluate for each iteration of the loop.'],
+        ],
+        returns: {
+            type: 'null',
+        },
+        description: 'Iterates over `bindings`, evaluates `body` for each `binding` and returns `null`. This is useful for side effects.',
+        examples: [
+            "\ndoseq (i in [1, 2, 3]) -> write!(i * 2)\n      ",
+        ],
+    },
+    'for': {
+        title: 'for',
+        category: 'Special expression',
+        customVariants: ['for (...binding) -> body'],
+        details: [
+            ['binding', 'loop-var in collection [...let-binding] [where whereExpr] [while whileExp]', 'A for loop binding'],
+            ['loop-var', 'symbol', 'The name of the loop variable.'],
+            ['collection', 'any', 'The collection to iterate over.'],
+            ['let-binding', 'let binding', 'A let binding to create a local variable.'],
+            ['whereExpr', 'expression', 'An expression that must evaluate to truthy for the loop body to be executed.'],
+            ['whileExp', 'expression', 'An expression that must evaluate to truthy for the loop to continue.'],
+            ['body', 'expressions', 'The expressions to evaluate for each iteration of the loop.'],
+        ],
+        returns: {
+            type: 'any',
+            array: true,
+        },
+        description: 'Iterates over `bindings`, evaluates `body` for each `binding` and returns an `array` of results.',
+        examples: [
+            "\nfor (i in [1, 2, 3]) -> i * 2\n      ",
+            "\nfor (\n  i in range(10) let ii = i ^ 2 while ii < 40 when ii % 3 == 0,\n  j in range(10) when j % 2 == 1\n) -> ii + j\n      ",
+        ],
+    },
     'array': {
         title: 'array',
         category: 'Special expression',