kiss-lang/kiss
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

test + fix for an ifLet regression

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-09-29 18:38:59 +00:00
parent 417fe965af
commit b2dde14fea
3 changed files with 25 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/kiss/Macros.hx
View File

@@ -699,21 +699,24 @@ class Macros {
var gensym = b.symbol();
return b.let(
[gensym, firstValue],
[b.callSymbol("case", [
[b.callSymbol("if", [
gensym,
b.call(
b.callSymbol("when", [gensym, firstPattern]), [
if (bindingList.length == 0) {
thenExp;
} else {
ifLet(assertLet, wholeExp, [
b.list(bindingList)
].concat(exps.slice(1)), k);
}
]),
b.callSymbol("otherwise", [
elseExp
])
b.callSymbol("case", [
gensym,
b.call(firstPattern, [
if (bindingList.length == 0) {
thenExp;
} else {
ifLet(assertLet, wholeExp, [
b.list(bindingList)
].concat(exps.slice(1)), k);
}
]),
b.callSymbol("otherwise", [
elseExp
])
]),
elseExp
])]);
}
macros["ifLet"] = ifLet.bind(false);

3
src/test/cases/BasicTestCase.hx
View File

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

5
src/test/cases/BasicTestCase.kiss
View File

@@ -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)))