make (defnew) binding list optional

This commit is contained in:
2021-06-22 19:05:06 -06:00
parent 369240f0c3
commit 6348a6a6a6

View File

@@ -546,10 +546,14 @@ class Macros {
// TODO test defnew
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 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 propertyDefs = [for (bindingPair in bindingPairs) {