changeset 56199:c0ad262446d6

(Fmapconcat, Fmapcar): Use SAFE_ALLOCA_LISP.
author Kim F. Storm <storm@cua.dk>
date Mon, 21 Jun 2004 22:36:02 +0000
parents a803de48faef
children 3464ef80e67d
files src/fns.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Mon Jun 21 22:35:29 2004 +0000
+++ b/src/fns.c	Mon Jun 21 22:36:02 2004 +0000
@@ -3010,7 +3010,7 @@
   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 @@
   leni = XFASTINT (len);
 
   nbytes = leni * sizeof (Lisp_Object);
-  SAFE_ALLOCA (args, Lisp_Object *, nbytes);
+  SAFE_ALLOCA_LISP (args, nbytes);
 
   mapcar1 (leni, args, function, sequence);