core: Remove gc_show.

[mes.git] / mes.c

diff --git a/mes.c b/mes.c
index f5e766d0be7e8cd95bd8e065c9dbe374df34b627..96dd91b15b4fecc7807ed0e82c9624d92824dfe3 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -989,24 +989,6 @@ gc_flip ()
   return stack;
 }
 
-SCM
-gc_show ()
-{
-  fprintf (stderr, "cells: ");
-  scm *t = g_cells;
-  display_ (stderr, -1);
-  fprintf (stderr, "\n");
-  if (g_news)
-    {
-      fprintf (stderr, "news: ");
-      g_cells = g_news;
-      display_ (stderr, -1);
-      fprintf (stderr, "\n");
-    }
-  g_cells = t;
-  return cell_unspecified;
-}
-
 //\f Environment setup
 SCM
 acons (SCM key, SCM value, SCM alist)