funcall: fight spurious retention.

* lib.c (funcall1, funcall2, funcall3, funcall4): Add forgotten
argument zaps in the case that routes to generic_funcall.

1 files changed, 4 insertions, 4 deletions

diff --git a/lib.c b/lib.c
index 8e8fe63f..9ca1212a 100644
--- a/lib.c
+++ b/lib.c
@@ -6709,7 +6709,7 @@ val funcall1(val fun, val arg)
 {
   if (type(fun) != FUN || fun->f.optargs || dbg_backtrace) {
     args_decl(args, ARGS_MIN);
-    args_add(args, arg);
+    args_add(args, z(arg));
     return generic_funcall(fun, args);
   }
 
@@ -6761,7 +6761,7 @@ val funcall2(val fun, val arg1, val arg2)
 {
   if (type(fun) != FUN || fun->f.optargs || dbg_backtrace) {
     args_decl(args, ARGS_MIN);
-    args_add2(args, arg1, arg2);
+    args_add2(args, z(arg1), z(arg2));
     return generic_funcall(fun, args);
   }
 
@@ -6819,7 +6819,7 @@ val funcall3(val fun, val arg1, val arg2, val arg3)
 {
   if (type(fun) != FUN || fun->f.optargs || dbg_backtrace) {
     args_decl(args, ARGS_MIN);
-    args_add3(args, arg1, arg2, arg3);
+    args_add3(args, z(arg1), z(arg2), z(arg3));
     return generic_funcall(fun, args);
   }
 
@@ -6883,7 +6883,7 @@ val funcall4(val fun, val arg1, val arg2, val arg3, val arg4)
 {
   if (type(fun) != FUN || fun->f.optargs || dbg_backtrace) {
     args_decl(args, ARGS_MIN);
-    args_add4(args, arg1, arg2, arg3, arg4);
+    args_add4(args, z(arg1), z(arg2), z(arg3), z(arg4));
     return generic_funcall(fun, args);
   }