# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1053884403 0
# Node ID 42d9bef834641b05b432b3e845ef3003f39cd6d9
# Parent  a1e2454a02ec33057bad78406b63bd4fcc837bac
(Fgarbage_collect): Remove `unused var tail' warning.

diff -r a1e2454a02ec -r 42d9bef83464 src/alloc.c
--- a/src/alloc.c	Sun May 25 16:51:34 2003 +0000
+++ b/src/alloc.c	Sun May 25 17:40:03 2003 +0000
@@ -4087,7 +4087,6 @@
 `gc-cons-threshold' bytes of Lisp data since previous garbage collection.  */)
      ()
 {
-  register struct gcpro *tail;
   register struct specbinding *bind;
   struct catchtag *catch;
   struct handler *handler;
@@ -4201,15 +4200,18 @@
      || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)
   mark_stack ();
 #else
-  for (tail = gcprolist; tail; tail = tail->next)
-    for (i = 0; i < tail->nvars; i++)
-      if (!XMARKBIT (tail->var[i]))
-	{
-	  /* Explicit casting prevents compiler warning about
-	     discarding the `volatile' qualifier.  */
-	  mark_object ((Lisp_Object *)&tail->var[i]);
-	  XMARK (tail->var[i]);
-	}
+  {
+    register struct gcpro *tail;
+    for (tail = gcprolist; tail; tail = tail->next)
+      for (i = 0; i < tail->nvars; i++)
+	if (!XMARKBIT (tail->var[i]))
+	  {
+	    /* Explicit casting prevents compiler warning about
+	       discarding the `volatile' qualifier.  */
+	    mark_object ((Lisp_Object *)&tail->var[i]);
+	    XMARK (tail->var[i]);
+	  }
+  }
 #endif
 
   mark_byte_stack ();