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

make (defnew) binding list optional

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-06-22 19:05:06 -06:00
parent 369240f0c3
commit 6348a6a6a6
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -546,10 +546,14 @@ class Macros {
// TODO test defnew // TODO test defnew
macros["defnew"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> { macros["defnew"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> {
wholeExp.checkNumArgs(2, null, "(defnew [[args...]] [[property bindings...]] [body...]"); wholeExp.checkNumArgs(1, null, "(defnew [[args...]] [[optional property bindings...]] [optional body...]");
var args = exps[0]; var args = exps[0];
var bindingList = exps[1].bindingList("defnew", true); var bindingList = if (exps.length > 1) {
exps[1].bindingList("defnew", true);
} else {
[];
};
var bindingPairs = Prelude.groups(bindingList, 2); var bindingPairs = Prelude.groups(bindingList, 2);
var propertyDefs = [for (bindingPair in bindingPairs) { var propertyDefs = [for (bindingPair in bindingPairs) {