X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fcallint.c;h=8676692c4f8642ac5fcbfa7867379bb5578037c5;hb=dbf2768f7b146e97e37a27316f70bb313f1acf15;hp=faa910db989d2834beb3131281d6192088e2bb78;hpb=042cabb13b0419d8aa5cfac9e087d78730d1dbc7;p=chise%2Fxemacs-chise.git

diff --git a/src/callint.c b/src/callint.c
index faa910d..8676692 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -307,8 +307,9 @@ when reading the arguments.
 
       if (EQ (funcar, Qautoload))
 	{
-	  struct gcpro gcpro1, gcpro2;
-	  GCPRO2 (function, prefix);
+	  struct gcpro gcpro1;
+	  GCPRO1 (prefix);
+	  /* do_autoload GCPROs both arguments */
 	  do_autoload (fun, function);
 	  UNGCPRO;
 	  goto retry;