From f4c30cde81057e798913f0c4fb5d68efbe4da316 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 21 Jun 2004 22:36:02 +0000 Subject: [PATCH] (Fmapconcat, Fmapcar): Use SAFE_ALLOCA_LISP. --- src/fns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fns.c b/src/fns.c index ae87f888966..e5622bd717e 100644 --- a/src/fns.c +++ b/src/fns.c @@ -3010,7 +3010,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) if (nargs < 0) return build_string (""); nbytes = nargs * sizeof (Lisp_Object); - SAFE_ALLOCA (args, Lisp_Object *, nbytes); + SAFE_ALLOCA_LISP (args, nbytes); GCPRO1 (separator); mapcar1 (leni, args, function, sequence); @@ -3046,7 +3046,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) leni = XFASTINT (len); nbytes = leni * sizeof (Lisp_Object); - SAFE_ALLOCA (args, Lisp_Object *, nbytes); + SAFE_ALLOCA_LISP (args, nbytes); mapcar1 (leni, args, function, sequence); -- 2.39.2