core: Remove local variables from gc.
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 12 Apr 2018 19:33:38 +0000 (21:33 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Thu, 12 Apr 2018 19:33:38 +0000 (21:33 +0200)
* src/gc.c (gl_loop): Remove local variables.

src/gc.c
src/mes.c

index 1a50b73960b7a5366c87e3aae34071374f68758f..34e63c014747bda7f45c6bfde9b9768fdb90d6c6 100644 (file)
--- a/src/gc.c
+++ b/src/gc.c
@@ -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++;
index ef65bea4077d1c5ca4a46071de64fe7a0f3800e0..9186056f0f55011266809b822adaf138c6bd7539 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -1140,8 +1140,8 @@ eval_apply ()
                   && (CAR (r1) == cell_symbol_define
                       || CAR (r1) == cell_symbol_define_macro))
                 {
-                  int global_p = CAAR (r0) != cell_closure;
-                  int macro_p = CAR (r1) == cell_symbol_define_macro;
+                  global_p = CAAR (r0) != cell_closure;
+                  macro_p = CAR (r1) == cell_symbol_define_macro;
                   if (global_p)
                     {
                       name = CADR (r1);