(Fgarbage_collect): Remove `unused var tail' warning.

diff --git a/src/alloc.c b/src/alloc.c
index 5230b5a7a8228fcf679f51c6c764f066235911bf..c42453d90628e0326aa44ca3a037d11bce40e948 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4087,7 +4087,6 @@ Garbage collection happens automatically if you cons more than
 `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 @@ Garbage collection happens automatically if you cons more than
      || 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 ();