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

(loop) macro

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-04-25 03:07:13 -06:00
parent 31e918e3f2
commit f3590a0616
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
kiss/src/kiss/SpecialForms.hx
View File

@@ -221,6 +221,11 @@ class SpecialForms {
EArrayDecl([forExpr("for", wholeExp, args, k)]).withMacroPosOf(wholeExp); EArrayDecl([forExpr("for", wholeExp, args, k)]).withMacroPosOf(wholeExp);
}; };
map["loop"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
wholeExp.checkNumArgs(1, null, '(loop [body...])');
EWhile(macro true, k.convert(wholeExp.expBuilder().begin(args)), true).withMacroPosOf(wholeExp);
};
map["return"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> { map["return"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
wholeExp.checkNumArgs(0, 1, '(return [?value])'); wholeExp.checkNumArgs(0, 1, '(return [?value])');
var returnExpr = if (args.length == 1) k.convert(args[0]) else null; var returnExpr = if (args.length == 1) k.convert(args[0]) else null;