From 5e4c085c6303b51bffce69c666cff328d52eaa68 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 17 Nov 2019 13:48:49 +0100
Subject: [PATCH] remove debugging

---
 src/eval-apply.c | 32 --------------------------------
 1 file changed, 32 deletions(-)

diff --git a/src/eval-apply.c b/src/eval-apply.c
index f7c27783..aa613150 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -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));