From 94495cdf808e2e9b19d98ec174f511eb040f1d2e Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Wed, 1 Jun 2022 17:03:57 +0000
Subject: [PATCH] copy arg arrays before passing to macro/form functions

---
 src/kiss/Kiss.hx | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/kiss/Kiss.hx b/src/kiss/Kiss.hx
index 44eeca9..19e37fb 100644
--- a/src/kiss/Kiss.hx
+++ b/src/kiss/Kiss.hx
@@ -355,20 +355,20 @@ class Kiss {
             case StrExp(s):
                 EConst(CString(s)).withMacroPosOf(exp);
             case CallExp({pos: _, def: Symbol(ff)}, args) if (fieldForms.exists(ff)):
-                var field = fieldForms[ff](exp, args, k);
+                var field = fieldForms[ff](exp, args.copy(), k);
                 k.fieldList.push(field);
                 k.fieldDict[field.name] = field;
                 none; // Field forms are no-ops
             case CallExp({pos: _, def: Symbol(mac)}, args) if (macros.exists(mac)):
                 macroUsed = true;
-                var expanded = macros[mac](exp, args, k);
+                var expanded = macros[mac](exp, args.copy(), k);
                 if (expanded != null) {
                     convert(expanded);
                 } else {
                     none;
                 };
             case CallExp({pos: _, def: Symbol(specialForm)}, args) if (specialForms.exists(specialForm)):
-                specialForms[specialForm](exp, args, k);
+                specialForms[specialForm](exp, args.copy(), k);
             case CallExp({pos: _, def: Symbol(alias)}, args) if (k.callAliases.exists(alias)):
                 convert(CallExp(k.callAliases[alias].withPosOf(exp), args).withPosOf(exp));
             case CallExp(func, args):