implicit begin in assertLet

2021-11-15 00:34:03 -07:00
parent 1578884e2f
commit 925cbb80cb
3 changed files with 7 additions and 11 deletions
--- a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
+++ b/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))