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

add more levels of macro function recursion

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-03-18 16:32:32 -06:00
parent 1414c7b167
commit 8d0ee30113
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -22,6 +22,8 @@ using tink.MacroApi;
typedef MacroFunction = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> Null<ReaderExp>; typedef MacroFunction = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> Null<ReaderExp>;
class Macros { class Macros {
static var MACRO_RECURSION_LIMIT = 10;
public static function builtins(k:KissState) { public static function builtins(k:KissState) {
var macros:Map<String, MacroFunction> = []; var macros:Map<String, MacroFunction> = [];
@@ -977,10 +979,10 @@ class Macros {
var name = exps[0].symbolNameValue(); var name = exps[0].symbolNameValue();
var lambdaExp = b.callSymbol("lambda", [exps[1]].concat(exps.slice(2))); var lambdaExp = b.callSymbol("lambda", [exps[1]].concat(exps.slice(2)));
k.macroVars[name] = Helpers.runAtCompileTimeDynamic(lambdaExp, k); // It's absurd, but each time hscript evaluates the lambda expression it captures another layer of recursion:
// Run the definition AGAIN so it can capture itself recursively: for (_ in 0...MACRO_RECURSION_LIMIT) {
k.macroVars[name] = Helpers.runAtCompileTimeDynamic(lambdaExp, k); k.macroVars[name] = Helpers.runAtCompileTimeDynamic(lambdaExp, k);
}
return null; return null;
}; };