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

onceLambda macro

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-04-03 08:32:42 -06:00
parent b7d883479c
commit 186e8676aa
1 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
kiss/src/kiss/Macros.hx
View File

@@ -1238,6 +1238,25 @@ class Macros {
].concat(body))]); ].concat(body))]);
}; };
k.doc("onceLambda", 3, null, "(onceLambda [<argsNames...>] <body...>)");
macros["onceLambda"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> {
var b = wholeExp.expBuilder();
var args = exps[0];
var body = exps.slice(1);
var flagSymbol = b.symbol();
return b.let([
b.meta("mut", flagSymbol), b.symbol("false")
], [b.callSymbol("lambda", [
args,
b.callSymbol("unless", [
flagSymbol,
b.set(flagSymbol, b.symbol("true"))
].concat(body))
])]);
};
// Time a block's evaluation // Time a block's evaluation
k.doc("measureTime",1, null, "(measureTime <body...>)"); k.doc("measureTime",1, null, "(measureTime <body...>)");
macros["measureTime"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> { macros["measureTime"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> {