core: Remove local variables from gc.
[mes.git] / src / mes.c
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);