remove debugging

This commit is contained in:
Jan Nieuwenhuizen 2019-11-17 13:48:49 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 9de6c42b21
commit 5e4c085c63
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 32 deletions

View File

@ -599,26 +599,6 @@ eval:
if (R0->car->car != cell_closure
|| R0->cdr->car->car == cell_undefined)
global_p = 1;
#if 0
else if (g_debug > 0)
{
eputs ("local...");
if (R0->type != TPAIR)
eputs ("R0 NOT A PAIR\n");
else
{
x = R0->cdr;
if (x->type != TPAIR)
eputs ("cdr not a pair\n");
else
{
x = x->car->car;
write_error_ (x);
eputs ("\n");
}
}
}
#endif
macro_p = 0;
if (R1->car == cell_symbol_define_macro)
macro_p = 1;
@ -679,22 +659,10 @@ eval:
write_error_ (name);
eputs ("\n");
}
#if 0
set_cdr_x (handle, R1);
#else
handle_set_x (handle, R1);
#endif
}
else
{
#if 0
if (g_debug > 0)
{
eputs ("local!");
write_error_ (name);
eputs ("\n");
}
#endif
handle = cons (name, R1);
aa = cons (handle, cell_nil);
set_cdr_x (aa, cdr (R0));