# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1087857362 0
# Node ID c0ad262446d6732561210158e68cbe640e355d94
# Parent  a803de48faef189ea8154043b7b3b001b871a6de
(Fmapconcat, Fmapcar): Use SAFE_ALLOCA_LISP.

diff -r a803de48faef -r c0ad262446d6 src/fns.c
--- 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);