summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2018-04-25 09:23:56 -0700
committerKaz Kylheku <kaz@kylheku.com>2018-04-25 09:23:56 -0700
commitae5c55a50e3637c4a0df10596a252b55d4cf014a (patch)
treeb9a4baa873bbeff8211b221c0845bf83ca88df24
parent822562e3badbfefa2694eb9a715153a11f94078d (diff)
downloadtxr-ae5c55a50e3637c4a0df10596a252b55d4cf014a.tar.gz
txr-ae5c55a50e3637c4a0df10596a252b55d4cf014a.tar.bz2
txr-ae5c55a50e3637c4a0df10596a252b55d4cf014a.zip
vm: null out variable arg list.
* vm.c (vm_execute_closure): Null out the vargs local to prevent spurious retention.
-rw-r--r--vm.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/vm.c b/vm.c
index b615e31d..29f60b8f 100644
--- a/vm.c
+++ b/vm.c
@@ -1063,7 +1063,7 @@ val vm_execute_closure(val fun, struct args *args)
vreg = vm_arg_operand_hi(argw);
}
- vm_set(dspl, vreg, vargs);
+ vm_set(dspl, vreg, z(vargs));
}
return vm_execute(&vm);