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

k.doc for some forms I missed forever ago

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-08-14 22:32:02 +00:00
parent 5c055e8995
commit b7276de847
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -268,6 +268,8 @@ class SpecialForms {
return EFor(EBinop(OpIn, loopVarExpr, k.convert(listExp)).withMacroPosOf(wholeExp), k.convert(body)).withMacroPosOf(wholeExp); return EFor(EBinop(OpIn, loopVarExpr, k.convert(listExp)).withMacroPosOf(wholeExp), k.convert(body)).withMacroPosOf(wholeExp);
} }
k.doc("doFor", 3, null, '(doFor <var> <iterable> <body...>)');
k.doc("for", 3, null, '(for <var> <iterable> <body...>)');
map["doFor"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> { map["doFor"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
EBlock([forExpr("doFor", wholeExp, args, k), macro null]).withMacroPosOf(wholeExp); EBlock([forExpr("doFor", wholeExp, args, k), macro null]).withMacroPosOf(wholeExp);
}; };
@@ -289,7 +291,9 @@ class SpecialForms {
return EWhile(cond, k.convert(b.begin(args)), true).withMacroPosOf(wholeExp); return EWhile(cond, k.convert(b.begin(args)), true).withMacroPosOf(wholeExp);
} }
k.doc("while", 2, null, '(while <condition> <body...>)');
map["while"] = whileForm.bind(false); map["while"] = whileForm.bind(false);
k.doc("until", 2, null, '(until <condition> <body...>)');
map["until"] = whileForm.bind(true); map["until"] = whileForm.bind(true);
k.doc("return", 0, 1, '(return <?value>)'); k.doc("return", 0, 1, '(return <?value>)');