procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fmapconcat, Fmapcar): Use SAFE_ALLOCA_LISP.

Browse source
This commit is contained in:
Kim F. Storm 2004-06-21 22:36:02 +00:00
parent a9e6baccec
commit f4c30cde81
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/fns.c
View file

@ -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);