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

cond use expBuilder()

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-07-12 13:42:08 -06:00
parent 737fd09288
commit 79108fd28d
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/kiss/Macros.hx
View File

@@ -739,21 +739,21 @@ class Macros {
} }
} }
// TODO use expBuilder()
// cond expands telescopically into a nested if expression // cond expands telescopically into a nested if expression
static function cond(wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) { static function cond(wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) {
wholeExp.checkNumArgs(1, null, "(cond [cases...])"); wholeExp.checkNumArgs(1, null, "(cond [cases...])");
var b = wholeExp.expBuilder();
return switch (exps[0].def) { return switch (exps[0].def) {
case CallExp(condition, body): case CallExp(condition, body):
CallExp(Symbol("if").withPosOf(wholeExp), [ b.call(b.symbol("if"), [
condition, condition,
CallExp(Symbol("begin").withPosOf(wholeExp), body).withPosOf(wholeExp), b.begin(body),
if (exps.length > 1) { if (exps.length > 1) {
cond(CallExp(Symbol("cond").withPosOf(wholeExp), exps.slice(1)).withPosOf(wholeExp), exps.slice(1), k); cond(b.call(b.symbol("cond"), exps.slice(1)), exps.slice(1), k);
} else { } else {
Symbol("null").withPosOf(wholeExp); b.symbol("null");
} }
]).withPosOf(wholeExp); ]);
default: default:
throw CompileError.fromExp(exps[0], 'top-level expression of (cond... ) must be a call list starting with a condition expression'); throw CompileError.fromExp(exps[0], 'top-level expression of (cond... ) must be a call list starting with a condition expression');
}; };