From e9aed57f78b50482c87599dc28ef5606b1dab9bb Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 17 Aug 2015 20:13:12 -0700 Subject: Bugfix: forgotten zaps could lead to spurious retention. * lib.c (generic_funcall): Added forgotten z() calls to zap arguments in some variadic cases. --- lib.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib.c b/lib.c index 4df1b1d8..83e6ef72 100644 --- a/lib.c +++ b/lib.c @@ -4389,11 +4389,11 @@ val generic_funcall(val fun, val arg[], int nargs) case F1: return fun->f.f.f1v(fun->f.env, z(arg[0]), z(arglist)); case F2: - return fun->f.f.f2v(fun->f.env, arg[0], arg[1], z(arglist)); + return fun->f.f.f2v(fun->f.env, z(arg[0]), z(arg[1]), z(arglist)); case F3: - return fun->f.f.f3v(fun->f.env, arg[0], arg[1], arg[2], z(arglist)); + return fun->f.f.f3v(fun->f.env, z(arg[0]), z(arg[1]), z(arg[2]), z(arglist)); case F4: - return fun->f.f.f4v(fun->f.env, arg[0], arg[1], arg[2], arg[3], z(arglist)); + return fun->f.f.f4v(fun->f.env, z(arg[0]), z(arg[1]), z(arg[2]), z(arg[3]), z(arglist)); case N0: return fun->f.f.n0v(z(arglist)); case N1: -- cgit v1.2.3