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

copy arg arrays before passing to macro/form functions

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-06-01 17:03:57 +00:00
parent e5a692cd1e
commit 94495cdf80
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/kiss/Kiss.hx
View File

@@ -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):