core: Remove local variables from gc.
* src/gc.c (gl_loop): Remove local variables.
This commit is contained in:
parent
a342791f2b
commit
3dc72ce20d
6
src/gc.c
6
src/gc.c
|
@ -92,6 +92,8 @@ gc_relocate_cdr (SCM new, SCM cdr) ///((internal))
|
||||||
SCM
|
SCM
|
||||||
gc_loop (SCM scan) ///((internal))
|
gc_loop (SCM scan) ///((internal))
|
||||||
{
|
{
|
||||||
|
SCM car;
|
||||||
|
SCM cdr;
|
||||||
while (scan < g_free)
|
while (scan < g_free)
|
||||||
{
|
{
|
||||||
if (NTYPE (scan) == TCLOSURE
|
if (NTYPE (scan) == TCLOSURE
|
||||||
|
@ -107,7 +109,7 @@ gc_loop (SCM scan) ///((internal))
|
||||||
|| NTYPE (scan) == TSYMBOL
|
|| NTYPE (scan) == TSYMBOL
|
||||||
|| NTYPE (scan) == TVARIABLE)
|
|| NTYPE (scan) == TVARIABLE)
|
||||||
{
|
{
|
||||||
SCM car = gc_copy (g_news[scan].car);
|
car = gc_copy (g_news[scan].car);
|
||||||
gc_relocate_car (scan, car);
|
gc_relocate_car (scan, car);
|
||||||
}
|
}
|
||||||
if ((NTYPE (scan) == TCLOSURE
|
if ((NTYPE (scan) == TCLOSURE
|
||||||
|
@ -118,7 +120,7 @@ gc_loop (SCM scan) ///((internal))
|
||||||
|| NTYPE (scan) == TVARIABLE)
|
|| NTYPE (scan) == TVARIABLE)
|
||||||
&& g_news[scan].cdr) // allow for 0 terminated list of symbols
|
&& 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);
|
gc_relocate_cdr (scan, cdr);
|
||||||
}
|
}
|
||||||
scan++;
|
scan++;
|
||||||
|
|
|
@ -1140,8 +1140,8 @@ eval_apply ()
|
||||||
&& (CAR (r1) == cell_symbol_define
|
&& (CAR (r1) == cell_symbol_define
|
||||||
|| CAR (r1) == cell_symbol_define_macro))
|
|| CAR (r1) == cell_symbol_define_macro))
|
||||||
{
|
{
|
||||||
int global_p = CAAR (r0) != cell_closure;
|
global_p = CAAR (r0) != cell_closure;
|
||||||
int macro_p = CAR (r1) == cell_symbol_define_macro;
|
macro_p = CAR (r1) == cell_symbol_define_macro;
|
||||||
if (global_p)
|
if (global_p)
|
||||||
{
|
{
|
||||||
name = CADR (r1);
|
name = CADR (r1);
|
||||||
|
|
Loading…
Reference in New Issue