# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1088114590 0
# Node ID 98133cccc0cc3cfb8dcf0e53607de44f57cbed43
# Parent  710d37addabad42a7922dbb2595d4e0b9892fcec
(Fmapconcat, Fmapcar): Remove superfluous GCPROs.

diff -r 710d37addaba -r 98133cccc0cc src/fns.c
--- a/src/fns.c	Thu Jun 24 22:02:23 2004 +0000
+++ b/src/fns.c	Thu Jun 24 22:03:10 2004 +0000
@@ -3020,11 +3020,7 @@
   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;
@@ -3040,7 +3036,6 @@
   register Lisp_Object len;
   register int leni;
   register Lisp_Object *args;
-  struct gcpro gcpro1;
   Lisp_Object ret;
   USE_SAFE_ALLOCA;
 
@@ -3051,11 +3046,7 @@
 
   mapcar1 (leni, args, function, sequence);
 
-  GCPRO1 (*args);
-  gcpro1.nvars = leni;
   ret = Flist (leni, args);
-  UNGCPRO;
-
   SAFE_FREE_LISP (leni);
 
   return ret;