letThrow as a convenient way to debug a try-catch expression

src/test/cases/BasicTestCase.kiss

@@ -495,4 +495,14 @@
 (defun :Void myVoid [] (set voidRan true))
 (defun _testVoid []
     (myVoid)
-    (Assert.isTrue voidRan))
+    (Assert.isTrue voidRan))
+
+(defun _testLetThrow []
+    (try
+            {
+                (letThrow 
+                        (throw "the error we want")
+                    (catch [e] (Assert.fail)))
+                (Assert.fail)}
+        (catch [:String e]
+            (Assert.equals "the error we want" e))))