implicit begin in assertLet

kiss/src/kiss/Macros.hx

@@ -600,9 +600,10 @@ class Macros {
         // Macros that null-check and extract patterns from enums (inspired by Rust)
         function ifLet(assertLet:Bool, wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) {
             var funcName = if (assertLet) "assertLet" else "ifLet";
+            var thenExpStr = if (assertLet) "<body...>" else "<thenExp>";
             var elseExpStr = if (assertLet) "" else " <?elseExp>";
-            var maxArgs = if (assertLet) 2 else 3;
-            wholeExp.checkNumArgs(2, maxArgs, '($funcName [<enum bindings...>] <thenExp>${elseExpStr})');
+            var maxArgs = if (assertLet) null else 3;
+            wholeExp.checkNumArgs(2, maxArgs, '($funcName [<enum bindings...>] ${thenExpStr}${elseExpStr})');
             var b = wholeExp.expBuilder();
 
             var bindingList = exps[0].bindingList(funcName);
@@ -610,8 +611,8 @@ class Macros {
             var firstValue = bindingList.shift();
             var firstValueSymbol = b.symbol();
 
-            var thenExp = exps[1];
-            var elseExp = if (exps.length > 2) {
+            var thenExp = if (assertLet) b.begin(exps.slice(1)) else exps[1];
+            var elseExp = if (!assertLet && exps.length > 2) {
                 exps[2];
             } else if (assertLet) {
                 b.callSymbol("throw", [b.str('Assertion binding ${firstValue.def.toString()} -> ${firstPattern.def.toString()} failed')]);
@@ -629,7 +630,7 @@ class Macros {
                             b.call(
                                 firstPattern, [
                                     if (bindingList.length == 0) {
-                                        exps[1];
+                                        thenExp;
                                     } else {
                                         ifLet(assertLet, wholeExp, [
                                             b.list(bindingList)

kiss/src/kiss/Prelude.hx

@@ -620,4 +620,5 @@ class Prelude {
     }
 
     public static var newLine = "\n";
+    public static var backSlash = "\\";
 }

projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss

@@ -231,12 +231,6 @@
     // (print "posting $message")
     (_vscode.postMessage message))
 
-(function replaceComment [element newText]
-    (case element
-        ((Comment (object text text start start end end))
-            (postMessage (object type "replace" text newText start start end end)))
-        (otherwise (throw "element $element is not a comment"))))
-
 (function insertBlockBeforeBlock [element]
     (case element
         ((Block (object sourceStart position))