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

Make setNth n-dimensional

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-07-09 14:46:09 +00:00
parent 1a078fdbe5
commit a98bf4cdde
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -315,13 +315,14 @@ class Macros {
function arraySet(wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) { function arraySet(wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) {
var b = wholeExp.expBuilder(); var b = wholeExp.expBuilder();
var value = exps.pop();
return b.call( return b.call(
b.symbol("set"), [ b.symbol("set"), [
b.call(b.symbol("nth"), [exps[0], exps[1]]), b.call(b.symbol("nth"), exps),
exps[2] value
]); ]);
} }
k.doc("setNth", 3, 3, "(setNth <list> <index> <value>)"); k.doc("setNth", 3, null, "(setNth <list> <index> <?n-dimensional indices...> <value>)");
macros["setNth"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> { macros["setNth"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> {
arraySet(wholeExp, exps, k); arraySet(wholeExp, exps, k);
}; };