defnew -> defNew

This commit is contained in:
2021-07-24 14:41:54 -06:00
parent d3f0c33061
commit df61721a49

View File

@@ -653,13 +653,13 @@ class Macros {
macros["awaitLet"] = awaitLet; macros["awaitLet"] = awaitLet;
// 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(1, null, "(defnew [[args...]] [[optional property bindings...]] [optional body...]"); wholeExp.checkNumArgs(1, null, "(defNew [[args...]] [[optional property bindings...]] [optional body...]");
var args = exps[0]; var args = exps[0];
var bindingList = if (exps.length > 1) { var bindingList = if (exps.length > 1) {
exps[1].bindingList("defnew", true); exps[1].bindingList("defNew", true);
} else { } else {
[]; [];
}; };
@@ -676,7 +676,7 @@ class Macros {
var argList = []; var argList = [];
// &prop in the argument list defines a property supplied directly as an argument // &prop in the argument list defines a property supplied directly as an argument
for (arg in Helpers.argList(args, "defnew")) { for (arg in Helpers.argList(args, "defNew")) {
var b = arg.expBuilder(); var b = arg.expBuilder();
switch (arg.def) { switch (arg.def) {
case MetaExp("prop", propExp): case MetaExp("prop", propExp):
@@ -705,6 +705,7 @@ class Macros {
].concat(propertySetExps).concat(exps.slice(2))) ].concat(propertySetExps).concat(exps.slice(2)))
])); ]));
}; };
renameAndDeprecate("defnew", "defNew");
macros["collect"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> { macros["collect"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> {
wholeExp.checkNumArgs(1, 1, "(collect [iterator or iterable])"); wholeExp.checkNumArgs(1, 1, "(collect [iterator or iterable])");