core: Remove local variables from gc.
[mes.git] / src / gc.c
index 9cab3e8b68a0792ef3a4e40fb372ddaaefa9e589..34e63c014747bda7f45c6bfde9b9768fdb90d6c6 100644 (file)
--- a/src/gc.c
+++ b/src/gc.c
@@ -48,7 +48,7 @@ gc_flip () ///((internal))
   struct scm *cells = g_cells;
   g_cells = g_news;
   g_news = cells;
-  if (g_debug > 1)
+  if (g_debug > 2)
     {
       eputs (";;;   => jam[");
       eputs (itoa (g_free));
@@ -92,6 +92,8 @@ gc_relocate_cdr (SCM new, SCM cdr) ///((internal))
 SCM
 gc_loop (SCM scan) ///((internal))
 {
+  SCM car;
+  SCM cdr;
   while (scan < g_free)
     {
       if (NTYPE (scan) == TCLOSURE
@@ -107,7 +109,7 @@ gc_loop (SCM scan) ///((internal))
           || NTYPE (scan) == TSYMBOL
           || NTYPE (scan) == TVARIABLE)
         {
-          SCM car = gc_copy (g_news[scan].car);
+          car = gc_copy (g_news[scan].car);
           gc_relocate_car (scan, car);
         }
       if ((NTYPE (scan) == TCLOSURE
@@ -118,7 +120,7 @@ gc_loop (SCM scan) ///((internal))
            || NTYPE (scan) == TVARIABLE)
           && g_news[scan].cdr) // allow for 0 terminated list of symbols
         {
-          SCM cdr = gc_copy (g_news[scan].cdr);
+          cdr = gc_copy (g_news[scan].cdr);
           gc_relocate_cdr (scan, cdr);
         }
       scan++;
@@ -137,9 +139,9 @@ gc_check ()
 SCM
 gc ()
 {
-  if (g_debug == 1)
+  if (g_debug == 2)
     eputs (".");
-  if (g_debug > 1)
+  if (g_debug > 2)
     {
       eputs (";;; gc[");
       eputs (itoa (g_free));
@@ -156,7 +158,7 @@ gc ()
   g_symbols = gc_copy (g_symbols);
   g_macros = gc_copy (g_macros);
   SCM new = gc_copy (g_stack);
-  if (g_debug > 1)
+  if (g_debug > 3)
     {
       eputs ("new=");
       eputs (itoa (new));