From 3ef1eeeef5a0b798f9933bb0035da7fcaaba0639 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 22 Jun 2004 14:48:10 +0000 Subject: [PATCH] (Fmapcar, Fmapconcat): GCPRO the args array. --- src/fns.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/fns.c b/src/fns.c index 693f3eaaa93..7e84b775fbb 100644 --- a/src/fns.c +++ b/src/fns.c @@ -3020,7 +3020,11 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) for (i = 1; i < nargs; i += 2) args[i] = separator; + GCPRO1 (*args); + gcpro1.nvars = nargs; ret = Fconcat (nargs, args); + UNGCPRO; + SAFE_FREE_LISP (nargs); return ret; @@ -3036,6 +3040,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) register Lisp_Object len; register int leni; register Lisp_Object *args; + struct gcpro gcpro1; Lisp_Object ret; USE_SAFE_ALLOCA; @@ -3046,7 +3051,11 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) mapcar1 (leni, args, function, sequence); + GCPRO1 (*args); + gcpro1.nvars = leni; ret = Flist (leni, args); + UNGCPRO; + SAFE_FREE_LISP (leni); return ret; -- 2.39.2