Commit 3ef1eeee authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(Fmapcar, Fmapconcat): GCPRO the args array.

parent b5bc4d05
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment