Mercurial > emacs

diff src/fns.c @ 56199:c0ad262446d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmapconcat, Fmapcar): Use SAFE_ALLOCA_LISP.
author Kim F. Storm <storm@cua.dk>
date Mon, 21 Jun 2004 22:36:02 +0000
parents 3204d2175b6a
children 2bb92448ff94
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);