From 509ebb038afc6cef33ead8d46c0ec8ad8a45f224 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 20 Oct 2018 10:58:56 +0200
Subject: [PATCH] Revert "core: Add gc-debug for stack array."

This reverts commit f35084d1dbea889d107824e7596da1701c6b90ad.
---
 src/gc.c | 74 --------------------------------------------------------
 1 file changed, 74 deletions(-)

diff --git a/src/gc.c b/src/gc.c
index 452354da..fc2cd5c3 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -232,77 +232,3 @@ gc ()
       eputs ("\n");
     }
 }
-
-SCM
-gc_debug ()
-{
-  r0 = MAKE_NUMBER (5);
-  r1 = MAKE_NUMBER (4);
-  r2 = MAKE_NUMBER (3);
-  r3 = MAKE_NUMBER (2);
-
-  gc_push_frame ();
-  for (long i=g_stack; i<STACK_SIZE; i++)
-    {
-      long c = g_stack_array[i];
-      eputs ("stack["); eputs (itoa (i-STACK_SIZE)); eputs ("]: "); eputs (itoa (c));
-      int t = TYPE (c);
-      eputs (" ");
-      eputs (itoa (t));
-      if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
-        {
-          eputs (" ");
-          write_error_ (c);
-        }
-      eputs ("\n");
-    }
-
-  gc_ ();
-
-  eputs ("\n");
-  for (long i=g_stack; i<STACK_SIZE; i++)
-    {
-      long c = g_stack_array[i];
-      eputs ("stack["); eputs (itoa (i-STACK_SIZE)); eputs ("]: "); eputs (itoa (c));
-      int t = TYPE (c);
-      eputs (" ");
-      eputs (itoa (t));
-      if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
-        {
-          eputs (" ");
-          write_error_ (c);
-        }
-      if (t == TBROKEN_HEART)
-        {
-          eputs (" ");
-          c = g_cells[c].car;
-
-          eputs ("=> "); eputs (itoa (c));
-          int t = TYPE (c);
-          eputs (" ");
-          eputs (itoa (t));
-          if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
-            {
-              eputs (" ");
-              write_error_ (c);
-            }
-          // if (t == TBROKEN_HEART)
-          //   {
-          //     eputs (" ");
-          //     c = g_cells[c].car;
-
-          //     eputs ("=> "); eputs (itoa (c));
-          //     int t = TYPE (c);
-          //     eputs (" ");
-          //     eputs (itoa (t));
-          //     if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
-          //       {
-          //         eputs (" ");
-          //         write_error_ (c);
-          //       }
-          //   }
-        }
-      eputs ("\n");
-    }
-  gc_pop_frame ();
-}