From a98bf4cdde7ab535016e99821608a3c7234f75c2 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Sat, 9 Jul 2022 14:46:09 +0000
Subject: [PATCH] Make setNth n-dimensional

---
 kiss/src/kiss/Macros.hx | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/kiss/src/kiss/Macros.hx b/kiss/src/kiss/Macros.hx
index eb1a0c0a..7465cee9 100644
--- a/kiss/src/kiss/Macros.hx
+++ b/kiss/src/kiss/Macros.hx
@@ -315,13 +315,14 @@ class Macros {
 
         function arraySet(wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) {
             var b = wholeExp.expBuilder();
+            var value = exps.pop();
             return b.call(
                 b.symbol("set"), [
-                    b.call(b.symbol("nth"), [exps[0], exps[1]]),
-                    exps[2]
+                    b.call(b.symbol("nth"), exps),
+                    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) -> {
             arraySet(wholeExp, exps, k);
         };