mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 09:20:54 -08:00
Code Issues Projects Releases Wiki Activity

(Fmapcar, Fmapconcat): GCPRO the args array.

Browse source
This commit is contained in:
Kim F. Storm 2004-06-22 14:48:10 +00:00
parent b5bc4d0572
commit 3ef1eeeef5
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fns.c
View file

@ -3020,7 +3020,11 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */)
for (i = 1; i < nargs; i += 2)
args[i] = separator;
GCPRO1 (*args);
gcpro1.nvars = nargs;
ret = Fconcat (nargs, args);
UNGCPRO;
SAFE_FREE_LISP (nargs);
return ret;
@ -3036,6 +3040,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */)
register Lisp_Object len;
register int leni;
register Lisp_Object *args;
struct gcpro gcpro1;
Lisp_Object ret;
USE_SAFE_ALLOCA;
@ -3046,7 +3051,11 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */)
mapcar1 (leni, args, function, sequence);
GCPRO1 (*args);
gcpro1.nvars = leni;
ret = Flist (leni, args);
UNGCPRO;
SAFE_FREE_LISP (leni);
return ret;