test + fix for an ifLet regression

src/kiss/Macros.hx

@@ -699,10 +699,11 @@ class Macros {
             var gensym = b.symbol();
             return b.let(
                 [gensym, firstValue],
-                [b.callSymbol("case", [
+                [b.callSymbol("if", [
                     gensym,
-                    b.call(
+                    b.callSymbol("case", [
-                        b.callSymbol("when", [gensym, firstPattern]), [
+                        gensym,
+                        b.call(firstPattern, [
                                 if (bindingList.length == 0) {
                                     thenExp;
                                 } else {
@@ -714,6 +715,8 @@ class Macros {
                         b.callSymbol("otherwise", [
                             elseExp
                         ])
+                    ]),
+                    elseExp
                 ])]);
         }
         macros["ifLet"] = ifLet.bind(false);

src/test/cases/BasicTestCase.hx

@@ -364,6 +364,9 @@ class BasicTestCase extends Test {
         _testQuickFractions();
     }
     
+     function testWhenLetGuards() {
+        _testWhenLetGuards();
+     }
      
 }
 

src/test/cases/BasicTestCase.kiss

@@ -689,3 +689,8 @@ From:[(assert false (+ \"false \" \"should \" \"have \" \"been \" \"true\"))]" m
 (function _testQuickFractions []
     (Assert.equals 0.5 (fHalf 1))
     (Assert.equals 0 (iHalf 1)))
+
+(function _testWhenLetGuards []
+    // Guards should be allowed in whenLet patterns
+    (whenLet [(when true 5) 5]
+        (Assert.pass)))